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1. 



ABSTRACT 



1,1 THIS PACKAGE CONTAINS 4 INDIVIDUAL UTILITY PROGRAMS 

FOR THE RKXX PLUS A MINI-MONITOR WHICH ALLOWS TEST SELECTION 
AND PARAMETER INPUT VIA THE CONSOLE DEVICE. ALL UTILITY 
PACKAGES ARE EXPLAINED IN DETAIL IN PARAGRAPH 9. 



2.1 EQUIPMENT 
PDP-11 PROCESSOR 

3K MEMORY 

RK11 OR RKV11 CONTROLLER 

1-8 RK05 OR RK05F DISK DRIVES (DRIVE TYPES MAY BE MIXED) 

2.2 STORAGE 

THIS PROGRAM REQUIRES 8K 

2.3 PRELIMINARY PROGRAMS 

THIS IS NOT A DIAGNOSTIC* PACKAGE IT IS ASSUMED THAT ALL 
EQUIPMENT IS FUNCTIONAL 



3. LOADING PROCEDURE 

3.1 METHOD 



PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED 

A, ABSOLUTE LOADER MUST BE IN MEMORY. 

B, PLACE BINARY TAPE IN READER. 

C, LOAD ADDRESS *7500 (^DETERMINED BY LOCATION OF 
LOADER) . 

D, PRESS "START" PROGRAM WILL LOAD. 



4.1 CONTROL SWITCH SETTINGS 
NONE 

4.2 STARTING ADDRESS 
200 MINI MONITOR 

4.3 PROGPAM AND/OR OPERATOR ACTION 
LOAD PROGRAM INTO MEMORY 

SET SWITCH REGISTER TO STARTING ADDRESS (203) 
LOAD ADDRESS 
PRESS START 



IF THE PROGRAM IS BEING RUN ON A SwITCHL FSS PROrESSnR fT.F. *N .1 1/3.4 1 

THE PROGRAM WiLL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A 'SOFTWARE* SWITCH REGISTER. THE 
'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPIN G A 'CONTROL G' . THE PROGRAM WILL 
RECOGNIZE THE 'CONTROL G' whenever the program enters 
the scope routine or begins a new test, the 

•SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE t 



2. 



REQUIREMENTS 



4. 



STARTING PROCEDURE 




'SWR s NNNNNN NEW ■ ' 

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. , 'RUBOUT' AND 
♦CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS* THE 'SOFTWARE' SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
'UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
'SOFTWARE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
BE FOLLOWED. 



PROGRAM WILL TYPE MINI MONITOR ROUTINE 



5. OPERATING PROCEDURE 

5.1 OPERATIONAL SWITCH SETTINGS 

SEE SEC. 9.0 FOR SWITCHES APPLICABLE TO INDIVIDUAL 
ROUTINES. 

5.2 SUBROUTINE ABSTRACTS 
NOT APPLICABLE 

5.3 PROGRAM AND/OR OPERATOR ACTOR 

SEE INDIVIDUAL PACKAGE DESCRIPTION (PARAGRAPH 9) 



6. ERRORS 

6.1 ERROR HALTS AND DESCRIPTION 

IF HALTED A MAJOR PROBLEM EXIST CHECK 
CODE AT HALT PC TO DETERMINE WHAT 
OCCURRED, 

6.2 ERROR RECOVERY 

EXPLAINED IN DETAIL IN INDIVIDUAL PACKAGE 
DESCRIPTION (PARAGRAPH 9) 



7, RESTRICTIONS 

7.1 STARTING RESTRICTIONS 

IT IS NOT RECOMMENDED THAT YOU START AT AN 

ADDRESS OTHER THAN 200, (REASON EXPLAINED IN PARAGRAPH 9,1) 
UNLESS DIRECTED TO BY THE PROGRAM, 

7.2 OPERATIONAL RESTRICTIONS 

EXPLAINED IN DETAIL IN INDIVIDUAL PACKAGE DESCRIPTIONS (PARAGRAPH. 9) 



8. EXECUTION TIME 

VARIES WITH SELECTED ROUTINE, NUMBER OF DRIVES, ETC. 



9. PROGRAM DESCRIPTION 



THE RKli UTILITY PACKAGE IS DIVIDED INTO EIGHT SECTIONS 

WHICH ALLOW COMPATABILITY TESTING, OSCILLATING SEEKS FOR SERVO 

ADJUSTMENT AND SEEK LOGIC WAVEFORM ANALYSIS, PACK FORMATTING 

AND SURFACE VERIFICATION, AND FRONT PANEL TESTING ( INDICATOR LAMPS, 

SWITCHES, INTERLOCKS, ETC) AND VERIFICATION, 

THE PACKAGE IS DIVIDED INTO FIVE SECTIONS 



SECTION 



NAME 



INDEX 

COMPATIBILITY TEST 
OSCILLATING SEEK PACKAGE 
FORMATTER SURFACE VERIFIER 
FRONT PANEL TEST 
RK05 CONTROL PANEL TEST #2 
HEAD ALIGNMENT ROUTINE 
POWER FAILURE (DURING WRITE) 



TEST 



NOTE* NORMAL LINKAGE TO ANY OF THESE PACKAGES IS THRU 
SECTION (SEE PARAGRAPH 9,1) 

9,1 SECTION INDEX 

PURPOSE* TO ALLOW THE USER TO SELECT AND RUN TESTS VIA 

THE CONSOLE DEVICE IN AN EFFORT TO FREE HIM 
FROM REMEMBERING VARIOUS SWITCH SETTINGS, 

DESCRIPTION! LOAD START ADDRESS 200, A TABLE IS PRODUCED 

WHICH TELLS THE USER THE NAME AND TYPE OF THE 

TEST. (TYPE IS AN OCTAL CODE BY WHICH THE USER SELECTS 

THE TEST), AFTER THE TABLE IS TYPED, THE QUESTION "TYPE 

IS ASKED, THE USER THEN TYPES THE NUMERAL 0-@ ? ^ 

TO SELECT A TEST, 

USE! THIS IS EXAMPLE OF THE ACTUAL OUTPUT! 

RK11 UTILITY PACKAGE 

NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE«X 



WERE "X" IS THE RESPONSE (0-7) BY THE USER 



ERROR INFO! ANY ILLEGAL INPUT IS HANDLED, A QUESTION MARK 

IS TYPED AND THE QUESTION "TYPE s" IS RE-ASKED, 

9,2 SECTION 1 COMPATIBILITY PACKAGE * 

PURPOSE! TO CONFIRM THE FACT THAT A GROUP OF DRIVES 

(A MAXIMUM OF EIGHT) APE TRULY COMPATIBLE, 

THIS PACKAGE DOES NOT APPLY TO RK-05F DRIVES, 
DESCRIPTION ! THIS PACKAGE ALLOWS A USER TO AUTOMATICALLY TEST 



FfloM r&ive To 'hjLivc 



COMPATIBILITY OF UP TO EIGHT (8) DRIVES SIMPLY 
BY STATING THE DRIVE NUMBERS TO BE TESTED. THE 
TEST DOES THE PEST, INSTRUCTING THE USER WHERE 
TO PLACE THE PACK. THE LIMITATIONS OF TESTING ARE 
IF THERE ARE (2) TWO PROCESSORS, FROM ONE (1) TO 
SEVEN (7) DRIVES MAY BE ON SYSTEM ONE, AND 
ONLY ONE (1) DRIVE (ANY DRIVE NUMER) MAY 
BE ON SYSTEM TWO , 

COMPATIBILITY* A DEFINITION, COMPATIBILITY INFERS 
MORE THAN THE FACT THAT INFORMATION WHICH 
WAS WRITTEN ON ONE DRIVE CAN BE 
READ ON ANOTHER . 

FOR DRIVES TO BE CONSIDERED TRULY COMPATIBLE 
ANY DRIVE SHOULD BE ABLE TO READ WHAT WAS 
WRITTEN BY ANY OTHER DRIVE AND ALSO MUST BE ABLE 
TO OVERWRITE A PORTION OF INFORMATION WRITTEN 
BY ANOTHER DRIVE, WITH NEW INFORMATION, AND 
READ IT BACK, THIS IS A VERY BROAD DEFINITION 
BUT IS THE BASIC PREMISE OF TRUE COMPATIBILITY. 
USE: THE BELOW IS AN EXAMPLE OF ACTUAL OUTPUT, THE USER 

WANTS TO RUN SINGLE PROCESSOR MODE AND TEST 
COMPATIBILITY ON THREE (3) DRIVES WHOSE UNIT NUMBERS 
ARE 0,1,3.,,.. 

«*##***##« 

EXAMPLE 1 



NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPEsl 

DRIVE NUMBERS ON SYSTEM 1=0,1,3. 

IS THERE A SECOND S5fSTEM?N 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #3 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #3 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

DONEl 
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NAME TYPE 
INDEX 
COMPATIBILITY PACKAGE 1 

**#**«##** 



...THE USER SELECTED TYPE ONE (1) AND RECEIVED 
THE MESSAGE RKXX COMPATIBILITY PACKAGE AND WAS THEN 
ASKED FOR SYSTEM 1 DRIVES HE TYPES EACH SELECTED 
DRIVE NUMBER SEPARATED BY COMMAS HE TERMINATES THE 
STRING WITH A PERIOD THEN A CARRIAGE RETURN 
HE IS ASKED IF THERE IS A SECOND SYSTEM? 
HE TYPES N FOP NO 

HE NOW RECEIVES A*STRING OF MOVE DIRECTIVES TELLING 
HIM EXACTLY WHERE TO MOVE THE TEST PACK AND WHAT TO 
DO, FINALLY THE USER RECEIVES THE MESSAGE "DONE!" 
INDICATING A SUCCESSFUL PASS. 
AT THIS POINT ANY DRIVE WHICH HAS NOT BEEN 
DECLARED DOWN AND DID NOT RECEIVE AN ERROR* 
MESSAGE IS COMPATIBLE WITH ANY OTHER SELECTED 
DRIVE MEETING THE SAME CONDITIONS. 
FINALLY THE INDEX ROUTINE IS AUTOMATICALLY 
RE-ENTERED AND USER IS READY TO MAKE ANOTHER 
SELECTION . 

#SEE ERROR INFO TO DETERMINE THE TYPE OF ERROR 
WHICH CONSTITUTES INCOMPATABILITY. 

**««*«*#** 



EXAMPLE 2 



THE USER NOW DESIRES TO TEST COMPATIBILITY ON 
TWO SYSTEMS HE HAS UNITS 0,1 ON SYSTEM ONE 
AND UNIT ON SYSTEM 2, IT GOES LIKE THIS.,,, 
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NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE»1 

DRIVE NUMBERS ON SYSTEM 1=1,0 



IS THERE A SECOND SYSTEM?Y 
DRIVE # *fc> 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

LOAD AND START ADDRESS 210 ON SYSTEM #2 

AND TYPE THE BELOW WHEN ASKED ON SYSTEM #2 



AND TYPE THE BELOW WHEN ASKED FOR IT. 
WORD 1*000002 
WORD 2*000200 



**#»**##«* 

....THE ONLY DIFFERENCE BETWEEN THIS AND SINGLE 
SYSTEM IS THE NEW DIRECTIVE TO LOAD START 210 
ETC. THE USER NOW LOADS AND STARTS SYSTEM TWO 
AND THE BELOW IS TYPED... 

*###*»**## 

COMPATIBILITY-SYSTEM#2 
WORD 1*000002 

WORD 2=000200 

MOUNT PACK ON DRIVE #0 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE PDY 

DONE SYSTEM 2 RESTART SYSTEM 1, TYPE WORD 000077 

«******»«# 

.....THE USER RESPONSE TO THE QUESTION WORD 1 * 
BY TYPING WORD 1 FROM PROCESSOR ONE AND 
WORD 2 », BY TYPING WORD TWO FROM PROCESSOR 1 
HE RECEIVES THE MOUNT COMMAND MOVES THE TEST PACK 
TO SYSTEM TWO* DRIVE NUMBER (0), AND PRESSES 
CONTINUE. NOW THE MESSAGE TO RETURN TO SYSTEM 
ONE* 

♦SYSTEM ONE HAS BEEN IN A HALT STATE AND 
SHOULD BE LEFT THAT WAY UNTIL THE RETURN FROM 
SYSTEM TWO SO THAT TABLES, ETC, BUILT FOR THE 
TEST WILL NOT BE DISTURBED, 

****###*«» 

WORD»000077 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

DONEl 

RK11 UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE* 



#*«*#*#»#» 



THE USER NOW PRESSES CONTINUE ON PROCESSOR ONE 
AND IN RESPONSE TO THE QUESTION, WORD *, TYPES 
THE WORD GIVEN TO HIM FROM PROCESSOR TWO 
THEN EVERYTHING BECOMES THE SAME AS A SINGLE 
SYSTEM , THE USER MEARLY FOLLOWS DIRECTIONS , 
ERROR INFO! SEE PARAGRAPH 9,6 SPECIAL SECTION 

9.3 SECTION 2 OSCILLATING SEEK PACKAGE 

PURPOSE! TO ALLOW THE USER TO MAKE SERVO ADJUSTMENTS 

AND/OR SEEK LOGIC CHECKOUT BY PERFORMING 

SEEKS BETWEEN USER SPECIFIED ADDRESS 
DESCRIPTION: SELECT TYPE 2, THE USER THEN INSERTS 

THE DRIVES TO BE TESTED IN SW0 TO SW7 

OF THE SWITCH REGISTER, A SWITCH IS SET 

FOR EACH DRIVE (E.G. SW2 TO TEST DRIVE 2, 
THE USER THEN INSERTS THE 

ADDRESS TO SEEK IN THE SWP, IF BOTH ADDRESS 

ARE LEGAL, 50 CYCLES (100 SEEKS) WILL BE 

MADE BETWEEN THE SPECIFIED ADDRESS THEN 

THE PROGRAM WILL LOOK AT THE SWR FOR 

POSSIBLE CHANGES THIS SHOULD ALLOW FOR GOOD 

STABLE TRACES ON AN OSCILLISCOPE. 

IT SHOULD BE NOTED THAT THE OSCILLATING 

SEEKS BETWEEN THE SPECIFIED CYLINDERS 

ARE DONE ON ALL AVAILABLE DRIVES, 

THE ONLY WAY TO EXIT IS HALT!, LOAD ADDRESS 200, 
HIT START, 

USEl SELECT TYPE 2, RESPOND TO QUESTION WITH UNIT NUMBER, , , 

TYPE«2 

OSCILLATING SEEK PACKAGE 

SET SW0 TO SW7 TO SELECT THE DRIVES TO TEST 
AND CONTINUE, IF ALL SWITCHES ARE RESET, 
ALL AVAILABLE DRIVES WILL BE TESTED « 
TOGGLE THE "FIRST CYLINDER ADDRESS" (OUTER LIMIT) 
INTO THE LOW BYTE (BIT0-7) OF THE SWITCH REGISTER AND THE "LAST 
1 CYLINDER ADDRESS" ( INNER LIMIT) INTO THE HIGH 
BYTE (BIT8-15), THEN PRESS CONTINUE 
,., FOLLOW INSTRUCTIONS TYPED 
ERROR INFO: IF AN ILLEGAL ADDRESS IS SELECTED A MESSAGE IS TYPED 
AND USER MEARLY SELECTS LEGAL ADDRESS AND DEPRESSES 
CONTINUE 
EXAMPLE TYPEOUT 

INVALID ADDRESS IN SWITCH REGISTER TRY AGAIN 
INVALID ADDRESS IN SWITCH REGISTER TRY AGAIN 
INVALID ADDRESS IN SWITCH REGISTER TRY AGAIN 

##N0TEI»# BOTH DRIVES OF AN RK-05F SHOULD NOT BE SELECTED 

FOR TESTING AT THE SAME TIME. 

9.4 SECTION 3 FORMATTER-SURFACE VERIFIER 

PURPOSE: TO FORMAT VIRGIN PACKS OR REFORMAT AN OLDER 

PACK AND VERIFY ITS SURFACE 
DESCRIPTION: SELECT TYPE 3, RESPOND TO THE QUESTION 

BY SETTING SWITCHES CORRESPONDING TO 

DRIVE NUMBERS TO BE FORMATTED . THUS IF 

DRIVES 0,1,2 ARE TO BE FORMATTED SET 

SWITCHES 0,1,2, THE DRIVES ARE FORMATTED 

ONE AFTER ANOTHER AT COMPLETION PACK GOOD 



MESSAGE IS TYPED AND PACK IS FORMATTED. 
USES SELECT TYPE 3, RESPOND TO QUESTION WITH 

SETTING OF SWITCH REGISTER. 

«*«**«*•#« 

RK11 UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE»3 

FORMATTER-SURFACE VERIFIER, SET SW REG WITH DRIVE #'S 

PACK GOOD. 

RK11 UTILITY PACKAGE 

NAME TYPE 
INDEX 
COMPATIBILITY PACKAGE 1 

#**##»**#* 

AFTEP THE PACK IS FORMATTED A GOOD MESSAGE IS 
GIVEN AND A CHECK IS MADE TO SEE IF THERE ARE 
ANY MORE PACKS TO BE FORMATTED. IF THERE ARE 
NONE CONTROL IS TRANSFERRED TO THE MINI-MONITOR 
ERROR INFO! DRIVE PROBLEM, IF THE MESSAGE.,,. 
SYSTEM ERROR 

....IS TYPED IT INDICATES A FAULTY DRIVE OR 
CONTROLLER, RUN DIAGNOSTICS, THE PROCESSOR WILL HALT 
PRESS CONTINUE TO RETURN TO MINI MONITOR. 
BAD SPOT, OR SURFACE PROBLEM, ETC . 

PACK FAILED AT (IN OCTAL) CYLINDER SECTOR SURFACE 
RK05 CONTROL PANEL TEST 

TO INSURE ALL SWITCHES INDICATOR LAMPS, AND INTERLOCKS 
ARE FUNCTIONAL IN THE RK05 
DESCRIPTION. SELECT TYPE 4, RESPOND TO QUESTION WITH UNIT NUMBER, FOLLOW 

DIRECTIONS GIVEN. AT COMPLETION MESSAGE "DONE J " IS GIVEN 
USEj SELECT TYPE 4, RESPOND TO QUESTION WITH THE UNIT NUMBER,... 

********** 



NAME TYPE 

INDEX 

COMPATABILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE fe 

POWER FAILURE ( WRITE) TEST 7 



9.5 SECTION 4 
PURPOSE! 



TYPE=4 



PK05 CONTROL PANEL TEST, WHICH DRIVE70 
MOUNT PACK ON DRIVE*0 

PLACE DRIVE IN PUN ; SHOULD SEE THE RUN, 
POWER, AND ON CYLINDER LAMPS LIGHT. 
MAKE DRIVE WRITE ENABLE PRESS CONTINUE 



WRITE PROTECT THE DRIVE THEN PRESS CONTINUE 
CLEAR WRITE PROTECT THEN PRESS CONTINUE 



CAUTION1 TRY TO OPEN THE DOOR, DO NOT FORCES 
DOOR SHOULD NOT OPEN I 



PUT DRIVE IN LOAD, WAIT FOR LOAD LIGHT 
PRESS CONTINUE WHEN FINISHED 



OPEN THE DOOR, PUT DRIVE IN RUN 
CAUTIONi IF RUN LIGHT ON ERROR! DEPRESS 
LOAD IMMEDIATELY, CONTINUE WHEN FINISHED 



REMOVE THE PACK, CLOSE THE DOOR 
PUT DRIVE IN RUN, DRIVE SHOULD NOT 
RUN.,, INTERLOCKS HAVE BEEN CHECKED 
DONE1 
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NAME TYPE 

INDEX 

COMPATABILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE» 

«#«*#*#**« 



9,6 SECTION 5 RK05 CONTROL PANEL TEST #2 



PURPOSE! TO GIVE A CONTINUOUS MONITORING AND 

CHECKING CAPABILITY FOR THE FOLLOWING 
CONDITIONS ON THE VARIOUS DRIVES: 
OFF LINE (RDY CLR)/ON LINE (RDY SET) 
WRITE PROTECTED/ WRITE ENABLED 
POWER LOW/POWER UP 
SEEK INCOMPLETE/SEEK OK 

DESCRIPTION! SELECT TYPE 5, PUT ALL THE DRIVES THAT 

ARE TO BE MONITORED AND CHECKED ON 'RUN* , 
NOTE THAT THIS IS IMPORTANT BECAUSE THE 
PROGRAM HAS TO KNOW WHICH DRIVES ARE TO 
BE CHECKED, 

USE! AFTER HAVING SELECTED TYPE 5 AND PUTTING 

THE DRIVES THAT ARE TO BE MONITORED ON 
•RUN', THE PROGRAM PRINTS OUT ALL THE 
DRIVES THAT ARE 'ON LINE'. 



DRIVE ON LINE 
DRIVE 1 ON LINE 
DRIVE 2 ON LINE 

THE PROGRAM, THEN STARTS SCANNING ALL 
DRIVES* ONE AFTER THE OTHER. CHECKS IF 
THE DRIVE IS ON LINE OR OFF LINE (DRY 
SET OR CLEAR). THEN IT CHECKS IF THE 
DRIVE IS WRITE ENABLED 0* WRITE PROTECTED. 
THEN A SEEK (TO CYLINDER 1) IS DONE AND 
»DPL' BIT IS CHECKED TO SEE IF DRIVE 
POWER IS LOW OR 0*. IF THE DRIVE IS 
POWERED, IT IS CHECKED IF THE SEEK IS 
DONE OR SEEK INCOMPLETE OCCURS, WHEN 
EVER ANY CHANGE IN THE STATUS IS FOUND, 
IT IS REPORTED, IF THE DRIVEIS PUT ON 
'LOAD* AND BACK TO 'RUN', THE PROGRAM 
CHECKS IF THE DRIVE COMES ON LINE IN THE 
WRITE ENABLED MODE. IF NOT, AN ERROR MESSAGE 
(ERROR, NOT WRITE ENABLED) IS REPORTED. 
THEN THE DRIVE IS WRITE PROTECTED. 
EXi IN A SYSTEM UNDER TEST, IF A DRIVE IS PUT 
ON 'LOAD' BY THE USER IT GETS REPORTED, 
IF THE USER SET 'WRITE PROT' IT GETS 
REPORTED. THE MESSAGES APPEAR AS FOLLOWING: 

DRIVE OFF LINE 

DRIVE 1 WRITE PROTECTED 

DRIVE 2 SIN 

DRIVE 1 WRITE ENABLED 

DRIVE POWER LO 

DRIVE 2 SEEK OK 

DRIVE POWER OK 

NOTE THAT ONLY CHANGES IN STATUS ARE 
REPORTED. THESE CHANGES HAVE TO BE AFFECTED 
BY THE USER, IF ANY CHANGE IN STATUS IS NOT 
DETECTED AND REPORTED BY THE PROGRAM 
IT MIGHT IMPLY AN ERROR CONDITION, 

9.7 SECTION 6 HEAD ALIGNMENT ROUTINE 

PURPOSE: TO PROVIDE A FACILITY FOR HEAD ALIGNMENT, 

WITH DYNAMIC SELECTION OF THE UPPER OR 
LOWER HEAD. 

DESCRIPTION: WHEN THE ROUTINE IS SELECTED THE 
FOLLOWING MESSAGE APPEARS: 

SET SW0*0 FOR SURFACE 0, SW0«1 FOR SURFACE 1, 
SET SWi»l TO TEST CYL 64, SET SWls0 TO TEST 
CYLINDER 105, 
SW2«15*0 

PUT ANY SW FROM 2-15 HI TO SELECT NEW DRIVE 

THEN THE FOLLOWING QUESTION IS ASKED: 

DRIVE? THE USER 

SHOULD TYPE IN THE DRIVE NUMBER THAT 
HE WANTS TO SELECT, THE DRIVE NUMBER IS 
SUFFIXED WITH AN *F' TO TEST RK-05F TYPE 
DRIVES. 



TYPE»6 
DRIVE«0<CR> 



THE UPPER OR THE LOWER HEAD CAN BE 

SELECTED BY SWITCH 0, IF SURFACE IS 

TO BE SELECTED, PUT SW TO 0. IF 

SURFACE 1 IS TO BE SELECTED PUT SW ON 1 , 

THE HEADS MAY BE POSITONED AT CYLINDER 64 

OR CYLINDER 105. SET SW1*0 FOR CYLINDER 105, 

5W1«1 FOR CYLINDER 64, 

THE PROGRAM POSITIONS THE HEADS ON THE SELECTED 

CYLINDER AND CONTINUOUSLY READS FROM 

THE SURFACE SELECTED, IF THE USER WISHES 

TO SELECT THE OTHER HEAD OR CYLINDER IT CAN BE 

DYNAMICALLY DONE BY FLIPPING SW OR SW 1 , 

IF SOME OTHER DRIVE IS TO BE SELECTED, 

ANY SWITCH BETWEEN SW 2 AND SW 15 SHOULD 

BE PUT UP, THE QUESTION • DRIVE? IS 

ASKED AGAIN. THIS IS A CONTINUOUS ROUTINE, 

HENCE TO EXIT A HALT HAS TO BE DONE, 

##NOTE»# ALIGNMENT IS DONE WITH AN RK-05J CARTRIDGE 
SO IF AN F TYPE DRIVE IS SELECTED, CYLINDER 
64 OF THE RK-05J IS CYLINDER 130 OF THE F DRIVE 
(EVEN DRIVE), CYLINDER 105 BECOMES CYLINDER 5 
OF THE ODD DRIVE ON THE RK-05F, 

9,8 SECTION 7 (DISK) POWER FAILURE (DURING WRITE) TEST 

PURPOSE! THIS TEST CHECKS THAT DATA WRITTEN ON THE DISK 
IS NOT DESTROYED WHEN THE DISK SENSES A LOSS OF 
POWER (POWER FAILS) WHILE DOING A WRITE, 
DESCRIPTIONS UPON SELECTING THIS TEST, THE PROGRAM FINDS OUT 
THE FIRST AVAILABLE DRIVE AND INDICATES IT TO 
THE USER BY TYPING A MESSAGES 

DRIVE X X*DRIVE NUMBER 0,1,,. 7 

THEN IT PROCEEDS TO TO WRITE UNIQUE PATTERNS 
ON CYLINDERS TO 15 (DECIMAL) OF THAT DRIVE. 
THE HEADS ARE THEN POSITIONED ON CYLINDER 10 
AND THE USER IS ASKED TO DROP POWER ON THAT 
DRIVE! 

DROP POWER 

MEANWHILE WRITE IS BEING DONE ON CYLINDER 10, 
ON GETTING THE ABOVE MESSAGE THE USER SHOULD 
DROP THE POWER ON THAT DRIVE. ON SENSING A LOSS 
OF POWER, THE PROGRAM WILL ASK THE USER TO PUT 
THE POWER ON AGAIN : 
POWER ON 

ON RECEIVING THE ABOVE MESSAGE THE USER SHOULD 
PUT THE POWER ON, ON DETECTING POWER UP THE 
PROGRAM PROCEEDS TO CHECK THAT THE DATA WRITTEN 
ON CYLINDERS TO 15 WAS INTACT. IF A WRITE 
CHECKS ERROR OCCURS (POSSIBLY MEANING THAT 
SOME OF THE DATA WAS DESTROYED DURING THE 
LOSS OF POWER) IT IS REPORTED AS FOLLOWING: 

ERROR, ON POWER-UP, RKDAsXXXX 
XXXX IS THE CONTENTS OF RKDA AT THE TIME OF 
ERROR. 



THE PROGRAM DOES THE ABOVE POWER FAIL TEST 



ON ALL DRIVES THAT ARE PRESENT* ONE AFTER THE 
OTHER IN A ROUND BOBBIN FASHION. EXIT IS THROUGH 
HALT, 



9,9 SECTION SPECIAL 



FOR THE BELOW EXAMPLES THE FOLLOWING FORMAT 
WILL BE USED. 

THE ACTUAL TYPEOUT J COMMENTS ON WHAT 

AND RESPONSE ; OCCURRED OR WHAT TO DO 

♦NOTES IF NECESSARY FOR CLARITY 



ERROR EXAMPLE 1 



FORMATTER-SURFACE VERIFIER 
RK05 CONTROL PANEL TEST 



TYPE»t 

DRIVE NUMBERS ON SYTEM 1=0. 



f TYPE 1 SELECTION 
f DRIVE #0 SELECTED 



IS THERE A SECOND SYSTEM?N 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

DRIVE WRITE PROTECTED, 

DRIVE WRITE PROTECTED 

DONE J 

RK11 UTILITY PACKAGE 



J NO SECOND SYSTEM 

; CONTINUE PRESSED BUT 

;WRITE PROTECT ON 

j CLEAR WRITE PROTECT SWITCH 

?NOW PUNS TO FINISH 

;THIS DOES NOT EFFECT 

jOUTCOME OF TEST 



NAME TYPE 
INDEX 
COMPATIBILITY PACKAGE 1 
OSCILLATING SEEK PACKAGE 2 

ERROR EXAMPLE 2 

RKU UTILITY PACKAGE 

NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE*1 

DRIVE NUMBERS ON SYTEM 1: 



'0. 



IS THERE A SECOND SYSTEM?N 
MOUNT PACK ON DRIVE #0 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 



{CONTINUE PRESSED BUT 
{DRIVE NOT READY. IF UP 
;TO SPEED ETC. AND MESSAGE 
; OCCURRING - STATIC SHOULD BE 



DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DRIVE NOT READY 
DONE! 

RK11 UTILITY PACKAGE 



;RUN IF NOT LOADED OR NOT 
J READY MAKING DRIVE READY 
J WILL STOP THE MESSAGE 
?IT DOES NOT EFFECT THE 

; THE OUTCOME OF COMPATABILITY 



NAME 

INDEX 

COMPATIBILITY PACKAGE 
OSCILLATING SEEK PACKAGE 

ERROR EXAMPLE 3 



TYPE 

1 
2 



RK1 1 UTILITY PACKAGE 

NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST 12 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE*1 



; DRIVE RESET TIMED OUT 



DRIVE NUMBERS ON SYTEM 1*0, 1,4,7. 



IS THERE A SECOND SYSTEM7Y 
DRIVE # s2 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

DRIVE RESET TIMED OUT 

DRIVE RESET TIMED OUT 

DRIVE RESET TIMED OUT 

DRIVE RESET TIMED OUT 

DRIVE RESET TIMED OUT 



jTHIS MESSAGE IF CONTINUOUS 
t INDICATED A DRIVE PROBLEM 
J THERE IS NO RECOVERY 
; AND IF CONTINUOUS, A 
;LOAD START ADDRESS 200 
;IS NECESSARY, DIAGNOSTIC 
JSHOULD BE RUN AGAINST THE 
fFAILING DRIVE. 



♦NOTE A SLOW DRIVE OR FAST PROCESSOR AND MEMORY 

MAY CAUSE THE MESSAGE TO APPEAR A FEW TIMES AND 

THEN CONTINUE THIS IS OK AND WILL NOT EFFECT THE 
OUTCOME OF THE TEST. 

ERROR EXAMPLE 4 



OSCILLATING SEEK PACKAGE 2 
FORMATTER-SURFACE VERIFIER 3 
RK05 CONTROL PANEL TEST 4 



TYPEal 



DRIVE NUMBERS ON SYTEM 1*0, 

IS THERE A SECOND SYSTEM?N 
MOUNT PACK ON DRIVE #0 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE FDY 
CONTROL RESET TIMED OUT 
CONTROL RESET TIMED OUT 
CONTROL RESET TIMED OUT 
CONTROL RESET TIMED OUT 



; SAME AS ABOVE BUT FUNCTION 
yWAS A CONTROL RESET 

; ALL COMMENTS ARE THE SAME 
*AS EXAMPLE 3 



#A SINGULAR OCCUPANCE AS ABOVE IS NOT A PROBLEM 
AND WILL NOT EFFECT COMPATABILITY 



ERROR EXAMPLE 5 



THE BELOW ERRORS DO# ALWAYS, EFFECT COMPATABILITY. 
IN THE FIRST TYPE THE DRIVE IS DOWN 
INDICATING THAT (5) FIVE HARD OR SOFT 
ERRORS OCCURRED. THE TEST WILL CONTINUE 
AGAINST THE OTHER DRIVES BUT THERE IS A 
PROBLEM IN THIS DRIVE AND IT SHOULD BE 
CONSIDERED NON EXISTENT AS FAR AS COMPATABILITY 
GOES. THAT IS TO SAY IT IS NOT TESTED* THEREFORE 
NOT NECESSARILY COMPATABLE OR INCOMPATABLE . 



RK11 UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATIBILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER -SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPEsl 

DRIVE NUMBERS ON SYTEM 1=0, 



IS THERE A SECOND SYSTEM?N 
MOUNT PACK ON DRIVE #0 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 

5 ERRORS OCCURRED DRIVE DECLARED DOWNlt NOT TESTED i 
DONE J 

RK11 UTILITY PACKAGE 



NAME TYPE 
INDEX 
COMPATIBILITY PACKAGE 1 

#IN THE ABOVE CASE THE MESSAGE "3 SEEK INCOMPLETE 
ERRORS OCCURRED DRIVE DECLARED DOWN I J NOT TESTED 1 " 
MAY OCCUR IT IS THE SAME ERROR AS DESCRIBED ABOVE 
EXCEPT THAT IT IS CAUSED BY 3 SEEK ERRORS OCCURRING 
ON ONE DRIVE. 



ERROR EXAMPLE b 



RK11 UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATABILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 
RK05 CONTROL PANEL TEST ROUTINE 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE ( WRITE) TEST 7 



TYPE«1 

DRIVE NUMBERS ON SYSTEM 1*0. 



IS THERE A SECOND SYSTEM? Y 
DRIVE # »1 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

LOAD AND START ADDRESS 210 ON SYSTEM #2 

AND TYPE THE BELOW WHEN ASKED FOR IT, 

WORD 1*101000 

WORDS000177 



MOUNT PACK ON DRIVE #0 
MAKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 
ERROR! DATA WRITTEN BY DRIVE 1 
ADDR«002764 EXPCTD«077400 



ADDRB002764 
ADDR*002764 
ADDR*002764 
ADDR«002764 



EXPCTD*077400 
EXPCTDS077400 
EXPCTD»077400 
EXPCTD»077400 



ERROR 1 DATA WRITTEN BY DRIVE 1 
ADDR*007624 EXPCTDS077400 

ERROR i DATA WRITTEN BY DRIVE 1 
ADDR*007633 EXPCTD*077400 
ADDR*007633 EXPCTDx077400 

DONE 1 

RK1 1 UTILITY PACKAGE 



CANNOT BE READ, 
RECVD*177000 
RECVD»077600 
RECVD*037600 
RECVDS037600 
RECVD*037600 

CANNOT BE READ, 
RECVD«177000 

CANNOT BE READ, 
RECVD*177000 
RECVD*1 77000 



NAME TYPE 

INDEX 

COMPATABILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

PK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE ( WRITE) TEST 7 



TYPE" 

THE ABOVE ERROR MESSAGE SHOWS A COMPATABILITY 
PROBLEM, ALL ERRORS OCCURREO ON HEAD ONE OF 
DRIVE TRYING TO READ INFORMATION WRITTEN BY 
DRIVE 1, 



ERROR EXAMPLE 7 



ADDR=000367 
ADDR»000367 
ADDR«000367 
ADDR*000367 



ADDRS002564 
ADDR»002564 
ADDR»002564 
ADDR»002564 



ADDR»002764 
ADDRS002764 
ADDR«002764 
ADDR»002764 



EXPCTD*077400 
EXPCTD*077400 
EXPCTD«077400 
EXPCTD*077400 



MOUNT PACK ON DRIVE #0 
MAKKE PACK WRITE ENABLE 
PRESS CONTINUE WHEN DRIVE RDY 

ERROR! DATA WRITTEN BY DRIVE 1 CANNOT BE READ. 
ADDR*000367 EXPCTD«077400 RECVD«077600 

RECVD»037600 
RECVDs037600 
PECVDB037600 
RECVD«037600 
ERROR J DATA WRITTEN BY DRIVE 1 CANNOT BE READ. 
ADDR*002564 EXPCTD«077400 RECVD«077600 
EXPCTD*077400 
EXPCTDB077400 
EXPCTD«077400 
EXPCTD»077400 
ERROR! DATA WRITTEN BY DRIVE 1 CANNOT BE READ. 
ADDRS002764 EXPCTD«077400 RECVD»077600 
EXPCTD=077400 
EXPCTD*077400 
EXPCTD»077400 
EXPCTD=077400 
ERROR i DATA WRITTEN BY DRIVE 1 CANNOT BE READ. 

ADDRS0027S7 EXPCTD*077400 RECVD«?177000 
5 ERRORS OCCURRED DRIVE DECLARED DOWN} } NOT TESTED1 
DONE! 



RECVD*037600 
RECVD*037600 
RECVD*037600 
RECVD«037600 



RECVDS037600 
RECVD«f037600 
RECVDa037600 
RECVDS037600 



IN THE ABOVE EXAMPLE THE PROBLEM IS EXTREME. 
THE DRIVE WAS DECLARED DOWN DO TO CHECKSUM 
ERRORS. (TO SEE HOW THIS WAS DETERMINED SEE 
PARAGRAPH 9.7), NOTICE ALSO THE PROBLEM DID NOT 
START APPEARING UNTIL CYLINDER 7, AND WAS NOT 
FATAL UNTIL CYLINDER 57, AGAIN HEAD #1 WAS A 
COMMON FACTOR. 

**««#*#«»» 



9,10 COMPATIBILITY ERROR RECOVERY 



ALTHOUGH A UTILITY PACKAGE IS NOT A TRUE DIAGNOSTIC 
IT IS OF BENEFIT TO THE USER TO AT TIMES, BE ABLE 
TO MODIFY THE PROGRAM TO RECIEVE MORE INFORMATION OR 
CONTROL PARAMETERS 



1, THERE ARE TWO STRATEGICALY PLACED NO-OPS, 
WHICH IF CHANGED TO HALTS, MAY BE OF HELP TO 
THE USER. ONE IS IN THE 'EXECUTE' ROUTINE WHICH 
ALLOWS THE USER TO EXAMINE THE DISK ADDRESS, 

BUS ADDRESS, WORD COUNT AND CONTROL REGISTERS IN 
TEMPORARY LOCATIONS JUST PRIOR TO LOADING AND 
EXECUTION. THE SECOND IS IN THE 'ERPCHK' ROUTINE 
WHICH ALLOW THE USER TO EXAMINE THE RKER REGISTER 
BEFORE THE PROGRAM CORRECTS ANY ERRORS WHICH 
WHICH MAY HAVE OCCURRED. 

2, IF PLAGED BY CHECKSUM ERRORS AND THE USER WISHES 
MOPE ERROR MAPI NG THEN HE MAY MODIFY THE 

MASK WORD AT LOCATION 'ERRCHK+2 ' TO ONLY RECOGNIZE 
HARD ERRORS. 

3, TO INCREASE OR DECREASE THE NUMBER OF RETRYS ALLOWED 



BEFORE A DRIVE IS DECLARED DOWN, GO TO THE 
'MOUNT* ROUTINE, MODIFY THE SETUP OF LOCATIONS 
'ECNT' AND 'CNTSIN* AND YOU HAVE ITJ 

4, IF THE USER DECIDES, SAY BECAUSE OF A 

LARGE NUMBER OF FAILURES, TO ALTER THE NUMBER 
OF PRINTOUTS PER SECTOR ON FAILURES (THE TYPE IN 
ERROR EXAMPLE 6 AND 7) HE MAY MODIFY THE SETUP 
OF 'CHKCNT' IN THE 'RDCHK* ROUTINE. 



A FINAL LOOK J THE FOLLOWING SECTION SHOWS ALL PACKAGES 
CALLED IN SEQUENCE, NONE WITH ERRORS. 
RK1 1 UTILITY PACKAGE 



NAME 

INDEX 

COMPATABILITY PACKAGE 
OSCILLATING SEEK PACKAGE 
FORMATTER-SURFACE VERIFIER 
RK05 CONTROL PANEL TEST 
RK05 CONTROL PANEL TEST #2 
HEAD ALIGNMENT ROUTINE 
POWER FAILURE (WRITE) TEST 

TYPE*0 

RKil UTILITY PACKAGE 
NAME 

INDEX 

COMPATABILITY PACKAGE 
OSCILLATING SEEK PACKAGE 
FORMATTER-SURFACE VERIFIER 
RK05 CONTROL PANEL TEST 
RK05 CONTROL PANEL TEST #2 
HEAD ALIGNMENT ROUTINE 
POWER FAILURE (WRITE) TEST 

TYPE*! 

DRIVE NUMBERS ON SYSTEM 1*0,1,3, 

IS THERE A SECOND SYSTEM?N 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #3 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #0 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #1 

MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE RDY 

MOUNT PACK ON DRIVE #3 



TYPE 

1 
2 
3 
4 
5 
6 
7 



TYPE 

1 
2 
3 
4 
5 
6 
7 



MAKE PACK WRITE ENABLE 

PRESS CONTINUE WHEN DRIVE PDY 

DONEi 

RKli UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATABILITY PACKAGE i 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE*2 

OSCILLATING SEEK PACKAGE, WHICH DRIVE?0 

TOGGLE THE "FIRST CYLINDER ADDRESS" (OUTER LIMIT) 

INTO THE LOW BYTE (BIT0-7) OF THE SWITCH REGISTER AND THE "LAST 

CYLINDER ADDRESS" (INNER LIMIT) INTO THE HIGH 

BYTE (BIT8-15), THEN PRESS CONTINUE. 

RK11 UTILITY PACKAGE 



NAME TYPE 

INDEX & 

COMPATABILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

PK05 CONTROL PANEL TEST #2 5 

HEAD ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE«3 

FORMATTER-SURFACE VERIFIER, WHICH DRIVE?0 
PACK GOOD, 

RK1 1 UTILITY PACKAGE 



NAME TYPE 

INDEX 

COMPATABILITY PACKAGE 1 

OSCILLATING SEEK PACKAGE 2 

FORMATTER-SURFACE VERIFIER 3 

RK05 CONTROL PANEL TEST 4 

RK05 CONTROL PANEL TEST #2 5 

HEAO ALIGNMENT ROUTINE 6 

POWER FAILURE (WRITE) TEST 7 



TYPE»4 

RK05 CONTROL PANEL TEST, WHICH ORIVE?0 
MOUNT PACK ON DRIVE #0 

PLACE DRIVE IN RUN »SHOULD SEE THE PUN, 
POWER, AND ON CYLINDER LAMPS LIGHT . 
MAKE DRIVE WRITE ENABLE PRESS CONTINUE 



WRITE PROTECT THE DRIVE THEN PRESS CONTINUE 



CLEAR WRITE PROTECT THEN PRESS CONTINUE 

CAUTIONJ TRY TO OPEN THE DOOR, DO NOT FORCE J 

DOOR SHOULD NOT OPEN I 

PRESS CONTINUE WHEN FINISHED 

PUT DRIVE IN LOAD, WAIT FOR LOAD LIGHT 
PRESS CONTINUE WHEN FINISHED 

OPEN THE DOOR, PUT DRIVE IN RUN 
CAUTION! IF RUN LIGHT ON ERROR! DEPRESS 
LOAD IMMEDIATELY, CONTINUE WHEN FINISHED 

REMOVE THE PACK, CLOSE THE DOOR 
PUT DRIVE IN RUN, DRIVE SHOULD NOT 
RUN... INTERLOCKS HAVE BEEN CHECKED 
DONE! 



RK11 UTILITY PACKAGE 
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MHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 



;*REVISED BY JIM KAPADIA 
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.SBTTL 


BASIC DEFINITIONS 


{•INITIAL ADDRESS 


OF THE STACK POINTER ••* 1100 ••» 


STACKS 


1 100 




.EQUIV 


£ M T f E8RQR 


"BASIC DEFINITION QF ERROR 


.EQUIV 


IOT, SCOPE 


{{BASIC DEFINITION OF SCOPE 


.••MISCELLANEOUS DEFINITIONS 


HT= 


1 1 


{{CODE FOR HORIZONTAL TAB 


LF = 


12 


{{CODE FOR LINE FEED 


CR* 


15 


{{CODE FOR CARRIAGE RETURN 


CRLF= 


200 


J5C00E FOR CARRIAGE RETURN-1 


PS= 


177776 


; J PROCESSOR STATUS WORD 


.EQUIV 


PS,PSW 




STKLMTs 


177774 


1 1 STACK LIMIT REGISTER 


PIRQ= 


177772 


I ( PROGRAM INTERRUPT REQUEST 


DSWRs 


177570 


; ) HARDWARE SwITCH REGISTER 


DDISP= 


177570 


1 { HARDWARE DISPLAY REGISTER 


; 'GENERAL PURPOSE 


REGISTER DEFINITIONS 


R0= 


%0 


; {GENERAL REGISTER 


Rl = 


%1 


1 { GENERAL REGISTER 


R2> 


%2 


; { GENERAL REGISTER 


P3* 


%3 


; ; GENERAL REGISTER 


R4 = 


%4 


; ; GENERAL REGISTER 


R5 = 


%5 


{ t GENERAL REGISTER 


R6s 


%b 


; (GENERAL REGISTER 


R7 = 


%7 


GENERAL REGISTER 


SP= 


%b 


;;STACK POINTER 


PC= 


%7 


} J PROGRAM COUNTER 


{•PRIORITY LEVEL 1 


DEFINITIONS 


PR0= 


It, 


{{PRIORITY LEVEL 


PRls 


40 


{{PRIORITY LEVEL 1 


PR2 = 


100 


{{PRIORITY LEVEL 2 


PR3 = 


140 


{ {PRIORITY LEVEL 3 


PR4s 


200 


I : PRIORITY LEVEL 4 


PR5 = 


240 


JSPPIORITY LEVEL 5 
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BASIC DEFINITIONS 


57 


000300 


PR6 = 


300 


j ; PRIORITY LEVEL 


58 


000340 


PR7 = 


340 


APRIORITY LEVEL 


59 










60 




{•"Sk'ITCH REGISTER" SWITCH DEFINITIONS 


61 


1 00000 


SW15* 


100000 


62 


040000 


Sril4a 


40000 




63 


020000 


SKI 3= 


20000 




64 


010000 


SW 12s 


10000 




65 


004000 


SWlla 


4000 




66 


002000 


SW10= 


2000 




67 


001 000 


SW09 = 


1000 




68 


000400 


SW08 = 


400 




69 


000200 


SK07s 


200 




70 


000100 


SW06s 


100 




71 


0H0040 


SW05= 


40 




72 


000020 


SW04s 


20 




73 


000010 


SW03* 


10 




74 


000004 


SW02 = 


4 




75 


000002 


SW01 = 


2 




76 


000001 


SW00x 


1 




77 




•EQUIV 


SW09, 


SW9 


78 




.EQUIV 


SW08, 


SW8 


79 




.EQUIV 


SW07, 


SW7 


80 




.EQUIV 


SW06, 


SW6 


SI 




.EQUIV 


SW05, 


SW5 


82 




.EQUIV 


SK04, 


SW4 


83 




.EQUIV 


SW03, 


SW3 


84 




.EQUIV 


SW02, 


SW2 


85 




.FQUIV 


SW01, 


SW1 


86 




.EQUIV 


SW00, 


SW0 


87 










88 




{ *DATA 


BIT DEFINITIONS (BIT00 TO BIT15) 


89 


1 110000 


B1T15= 


100000 


90 


040000 


BIT14= 


40000 




91 


020000 


BIT1 3s 


20000 




92 


010000 


BIT12« 


10000 




93 


004000 


BIT1 is 


4000 




94 


002000 


BIT10S 


2000 




95 


001000 


BIT09s 


1000 




96 


000400 


B1T08= 


400 




97 


000200 


BIT07= 


200 




98 


000100 


BIT06= 


100 




99 


000040 


BIT05s 


40 




100 


000020 


BIT04s 


20 




101 


000010 


BIT03= 


10 




102 


000004 


BIT02S 


4 




103 


000002 


BIT0H 


2 




104 


000001 


BIT00S 


1 




105 




.EQUIV 


BIT09 


,BIT9 


1 06 




.EQUIV 


BIT08 


,BIT8 


107 




.EQUIV 


8IT07 


,BIT7 


108 




.EQUIV 


BIT06 


,BIT6 


109 




.EQUIV 


BIT05 


,BIT5 


110 




.EQUIV 


BIT04 


,BIT4 


111 




.EQUIV 


BIT03 


,BIT3 


112 




.EQUIV 


BIT02 


,BIT2 
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D7RKID.P11 22-SEP-76 1 ! 1 ff BASIC DEFINITIONS 

113 .EQUIV BIT01,BIT1 

114 .EQUIV BIT00.BIT0 
115 

116 ;»BASIC "CPU" TRAP VECTOR ADDRESSES 

117 000004 ERRVEC" 4 ((TIME OUT AND OTHER ERRORS 

118 000010 RESVEC* 10 I ( RESERVED AND ILLEGAL INSTRUCTIONS 

119 000014 TBITVEC»14 [("T" BIT 

120 000014 TRTVEC* 14 1 1 TRACE TRAP 

121 000014 BPTVEC« 14 ; ( BREAKPOINT TRAP (BPT) 

122 000020 IOTVEC« 20 1 ( INPUT/OUTPUT TRAP (IOT) »»SCOPE»» 

123 000024 PWRVEC* 24 ) (POWER FAIL 

124 000030 EMTVEC* 30 ( I EMULATOR TRAP (EMT) »#ERROR»* 

125 000034 TRAPVEC«34 ( J "TRAP" TRAP 

126 000060 TKVEC" 60 ( ( TTY KEYBOARD VECTOR 

127 000064 TPVEC* 64 ( (TTY PRINTER VECTOR 

128 000240 PIRQVEC»240 : (PROGRAM INTERRUPT REQUEST VECTOR 

129 .SBTTL TRAP CATCHER 
130 

111 000000 ,»0 

132 ! *ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2, HALT" 

113 ;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

114 ;*LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

135 000174 ,»174 

136 000174 000000 DISPREGI • WORD ; ( SOFTWARE DISPLAY REGISTER 

137 000176 000000 SWREGl , WORD ( {SOFTWARE SWITCH REGISTER 

138 .SBTTL STARTING ADDRESS(FS) 

139 000200 000137 001434 JMP OfSTARTR ((JUMP TO STARTING ADDRESS OF PROGRAM 

140 000210 ."210 

141 000210 112737 000377 001312 MOVB #377,9#MODE 

142 000216 000137 001440 JMP MSTART 

143 .SBTTL ACT11 HOOKS 
144 

1 45 ; )»#»*#*#*#*****«»#»♦#»*###»#»#*»»«»##»*»#»*•**#»##*»»♦*»»*»**»♦* 

146 (HOOKS REQUIRED BY ACTll 

147 000222 JSVPC*. (SAVE PC 

148 000046 .'46 

149 000046 001400 SeNdAd ((I)SeT LOC«*& TO AddRE s S OF »END*D IN .SeOP 

150 000052 .=52 

151 000052 000000 • WORD ;|2)SET L0C.52 TO ZERO 

152 000222 .*»5VPC SS RESTORE PC 
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COMMON 


TAGS 






153 






. SBTTL 


COMMON 


TAGS 




154 














155 






; j ******* *•***•••»»*******»*•••»***»•*************• ************** 


156 






;*this 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


157 






(•USED 


IN THE 


PROGRAM. 




158 
159 




001 100 




.=1 100 






160 


001100 




scmtag: 






S START OF COMMON TAGS 


161 


001 100 


000000 


spass: 


.WORD 





SCONTAINS PASS COUNT 


162 


001102 


000 


Ststnm: 


. BYTE 





JCONTAINS THE TEST NUMBER 


163 


001103 


000 


SERFLG: 


. BYTE 





S CONTAINS ERROR FLAG 


164 


001104 


000000 


sicnt: 


. WORD 





; CONTAINS SUBTEST ITERATION COUNT 


165 


001106 


000000 


8LPADR: 


.WORD 





S CONTAINS SCOPE LOOP ADDRESS 


166 


001110 


000000 


SLPERR: 


. WORD 





> CONTAINS SCOPE RETURN FOR ERRORS 


167 


001112 


000000 


SEP.TTLI 


.WORD 





; CONTAINS TOTAL ERRORS DETECTED 


168 


001114 


000 


sitemb: 


. BYTE 





SCONTAINS ITEM CONTROL BYTE 


169 


001115 


001 


SERMAXi 


.BYTE 


1 


) CONTAINS MAX. ERRORS PER TEST 


170 


001116 


000000 


SERRPC : 


. WORD 





) CONTAINS PC OF LAST ERROR INSTRUCTION 


171 


001120 


000000 


SGDADRI 


.WORD 





SCONTAINS ADDRESS OF 'GOOD' DATA 


172 


001122 


000000 


SBDADRl 


. WORD 





SCONTAINS ADDRESS OF 'BAD * DATA 


173 


001124 


000000 


SGDDAT! 


.WORD 


;:CONTAINS 'GOOD' DATA 


174 


001126 


000000 


SBDDATl 


. WORD 





(CONTAINS 'BAD* DATA 


175 


001130 


000000 




, WORD 





(RESERVED—NOT TO BE USED 


176 


001132 


000000 




. WORD 







177 


001134 


000 


SAUTOB! 


.BYTE 





(AUTOMATIC MODE INDICATOR 


178 


001135 


000 


(INTAGl 


.BYTE 





(INTERRUPT MODE INDICATOR 


179 


001136 


000000 




.WORD 







180 


001140 


177570 


swr: 


. WORD 


DSWR 


(ADDRESS OF SWITCH REGISTER 


181 


001142 


177570 


DISPLAY ! .WORD 


DDISP 


; ADDRESS OF DISPLAY REGISTER 


182 


001 144 


177560 


STKSl 


177560 




(TTY KBD STATUS 


183 


001146 


177562 


$TKB : 


177562 




(TTY KBD BUFFER 


184 


001150 


177564 


*tps: 


177564 




(TTY PRINTER STATUS REG. ADDRESS 


185 


001152 


177566 


STPBJ 


177566 




(TTY PRINTER BUFFER REG. ADDRESS 


186 


001154 


000 


f NULLS 


.BYTE 





(CONTAINS NULL CHARACTER FOR FILLS 


187 


001155 


002 


SFILLSi 


, BYTE 


2 


(CONTAINS * OF FILLER CHARACTERS REQUIRED 


188 


001156 


012 


SFILLC: 


.BYTE 


12 


( INSERT FILL CHARS. AFTER A "LINE FEED" 


t89 


001157 


000 


STPFLGl 


.BYTE 





("TERMINAL AVAILABLE" FLAG (BIT<07>«B«YES) 


190 


001160 


077 


SQUESl 


.ASCII 


/?/ J (QUESTION MARK 


191 


001161 


015 


ICRLFl 


.ASCII 


<15> 


(CARRIAGE RETURN 


192 


001162 


000012 


$LFI 


.ASCIZ 


<12> ; I LINE FEED 


193 






; i #»»***#»»»»»»»»»»»«»»»♦»*****»*»»»»#*»*«#»»»»#»#»#*##»»*#»***»* 


194 


001164 


000000 


dRactv: 


.WORD 


(ACTIVE DRIVE WORD 


195 
196 


001166 


000010 


LOGAI 


, BLKW 


10 STABLE OF ACTIVE DRIVE WORDS 


197 
198 


001206 


152525 


DRV01 


. WORD 


152525 STABLE OF PATTERN » TO DRIVE *'S 


199 


001210 


077777 




. WORD 


077777 




200 


001212 


000000 




• WORD 


000000 




201 


001214 


012345 




. WORD 


012345 




202 


001216 


125252 




. WORD 


125252 




203 


001220 


000001 




, WORD 


000001 




204 


001222 


177777 




. WORD 


177777 




205 


001224 


154320 




.WORD 


154320 




206 














207 


001226 


000010 


RDTBL! 


. BLKW 


10 


TABLE OF READ ADDRESS 


208 


001246 


000004 


PASTBLI 


.BLKW 


4 STABLE OF PARAMETERS FOR SYSTEM 12 
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COMMON 


TAGS 






209 














210 


001 256 


377 


U Clf TQT f 




377 


STABLE OF CYLINDER BASE FOR AUTO MODE 


2! ! 


001257 


177 




.byte 


177 




212 


001260 


077 




.BYTE 


077 




213 


001261 


037 




.BYTE 


037 




214 


001262 


017 




. BYTE 


017 




215 


00126 3 


007 




s BYTE 


007 




216 


001 264 


003 




. BYTE 


003 




217 


001265 


001 




.BYTE 


001 




218 
219 


001 266 


000 


BASE. 









220 


001 267 


050 




Ibyte 


50 


;CYL 40 BASE CYLINDER ADDRESS 


221 


001 270 


120 




.BYTE 


120 


;CYL 80 BASE CYLINDER ADDRESS 


222 


001271 


170 




. BYTE 


170 


;CYL 120 BASE CYLINDER ADDRESS 


223 


001272 


240 




.BYTE 


240 


;CYL 160 BASE CYLINDER ADDRESS 


224 


001273 


303 




.BYTE 




"CYL 195 BASE CYLINDER ADDRESS 


225 














226 


001 274 


00001 1 


CYLTBL5 


. BLKB 


11 


; TABLE OF SELECTED BASES 


227 
228 


001 305 


000 


sectbl: 


.BYTE 





; SECTOR 


229 


001 306 


004 




.BYTE 


4 


! SECTOR 4 


230 


001 307 


007 




■ BYTE 


7 


; sector 7 


231 


001 310 


013 




.BYTE 


13 


; SECTOR 12 


232 
233 


001 31 1 


000 


DBCNT1 : 


.BYTE 





.•COUNT OF NUMBER OF DRIVES ON SYS. 1 


234 


001 312 


000 


mode: 


.BYTE 





;IF -1 START 210 SELECTED 


235 


<*01 31 3 


000 


PRONUMS 


. BYTE 





;IF 1 PROCESSOR SELECTED 


236 


001314 


000 


DRIVES 


, BYTE 





;DRIVE # UNDER TEST (MAN+AUTO MODE) 


237 


001315 


000 


CYLBAS: 


. BYTE 





; BASE SELECTED (MANUAL MODE) 


238 


001 316 


000 


COMND : 


. BYTE 





;IF WRITE COMMAND 


239 


031 317 


000 


WRTNBYt 


BYTE 




;DRIVE WHICH DID WRITE (READ OPERATION) 


240 


001320 


000 


HDRFLG: 


.BYTE. 





J FLAG FOR ONE HEADER PRINTOUT 


241 


001 321 


000 


ecnt: 


.BYTE 





; ERROR COUNTER 


242 


001322 


000 


CNTSIN; 


.BYTE 





J SEEK INCOM. COUNTER 


243 


001 323 


000 


TIMR2: 


.BYTE 





JSECOND PASS TIMER 


244 


001 324 


000 


IDEX: 


. BYTE 





.•CURRENT INDEX * 


245 


001 325 


000 


stflg: 


.BYTE 







246 


001326 


000 


OSPFLG: 


. BYTE 







247 
248 




001330 




.EVEN 






2 t9 














250 


001 330 


000000 


KYTEMp: 


. WORD 





;TEMP. KEYBOARD BUFFER 


251 


001 332 


000000 


CONTPL.: 


• WORD 





;temp. control+status word 


252 


001 334 


000000 


DSKADRS 


.WORD 





; temp . disk address word 


253 


001 336 


000000 


busadr: 


, WORD 





;TEMP, BUS ADDRESS WORD 


254 


001 340 


000000 


WPDCNT: 


. WORD 





;TEMP. WORD COUNT 




1 3 42 


J 7 2000 


CYLCNT: 


. WORD 


-6000 


;WORD COUNT OF 1 CYLINDER 


256 


001 344 


177400 


seccnt: 


.WORD 


-400 


;WORD COUNT OF 1 SECTOR 


257 


001346 


000000 


TImr: 


. WORD 





(TIMER FOR OPERATIONS 


258 


00 1 350 


000000 


CHKCNT: 


. WORD 





; NUMBER OF ERROR PRINTOUTS 


259 


001 352 


000000 


DSKTMP: 


, WORD 





;SAVE OF CURRENT DISK * 


260 


001 354 


004003 


hritcs; 


. WORD 


4003 


; IBA+WPITE+GO 


261 


001356 


000005 


READCS: 


. WORD 


5 


; READ+GO 


262 


001 360 


2(00000 


ERRFLG5 


. WORD 





; ERROR FLAG INHIBIT ADDRESS CHANGE 


263 


001362 


000000 


PATTRNt 


. WORD 





! DATA PATTERN 


264 


001 364 


1 77400 


rkds: 


, WORD 


177400 
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265 


001 366 


1 77402 


RKER: 


. WORD 


177402 


266 


001 370 


177404 


rkcs: 


■ WORD 


177404 


267 


t!01372 


1 77406 


PKhC! 


. WORD 


177406 


268 


fc>01 374 


177410 


RKBA: 


. WORD 


177410 


269 


001 376 


177412 


PKDA: 


. WORD 


177412 


270 


001 400 


000000 


SENDAD : 


• WORD 


Id 


271 


m\ 402 


000000 


SEEK I : 


. WORD 





272 


001 404 


000000 


SEEKO : 


. WORD 





273 












274 




105212 


LFLF = 


105212 




275 


001 106 


013652 


ba: 


BUFF 




276 


001410 


0(10000 


DA: 


a WORD 





277 


001412 


000000 


we: 


.WORD 





278 


001414 


013b54 


PBA : 


RBUFF 




279 


03141b 


000000 


RWC: 


. WORD 





280 


001420 


000000 


extr: 


.WORD 





281 


001 422 


000000 


ERPWFl 


. WORD 





212 


001424 


000000 


ERRRF : 


• WORD 





283 


001 426 


000000 


ERRRFC". 


.WORD 





284 


001 430 


000000 


ERRWCH: 


, WORD 





2R5 


001432 


000000 


f.prwcs: 


• WORD 





286 












?B7 






SBIT DEFINITIONS 


288 
2P9 




01 0000 


DPL=8IT12 




290 




000100 


PWS=BITb 






m 




000040 


WPS=RI T5 






292 




001000 


SIN=BIT9 
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SEQ 0^29 



293 .SBTTL ERROR POINTER TABLE 
294 

295 [»THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

296 ;»THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

297 ;«LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

298 [*NOTEll IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC). 

299 ;*NOTE2t EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS! 
300 

301 !* EM I [POINTS TO THE ERROR MESSAGE 

302 [» DH I [POINTS TO THE DATA HEADER 

303 J* DT [[POINTS TO THE DATA 

304 !* DF [[POINTS TO THE DATA FORMAT 
305 

306 

307 001434 SEPRTB: 

305 ; j #»»#»»»*#»*»»♦#*»#*##**»#»»*#*»»#»•#»#*»»•♦»#»**»♦#*»»*•»»*»»*« 

309 

31 <a ; THE ERROR TABLE IS UNUSED IN THIS PROGRAM 
311 

312 " [»*»»♦*»*♦*#»#*»»*»♦##*»******»*♦»»»»♦*»***#»#»#*»##***»*»»*###* 

313 



MArNoec 


-11-DZRK1 


!-0 


MACY11 


27( 1006) 


04-OCT 


.76 14:01 PAGE 8 


DZRKID. 


Pll 2/ 


!-SEP-76 


10:10 




ERROR POINTER TABLE 


314 


001 434 


1«J5037 


001312 




STARTRj 


CLRB 


PiMODE 


315 


001440 


000005 






START: 


RESET 


;CLEAR THE BUS 


316 










.SBTTL 


INITIALIZE THE COMMON TAGS 


317 










f [CLEAR 


THE COMMON TAGS (SCMTAG) AREA 


318 


001442 


012706 


001 100 






MOV 


»SCMTAG,R6 [[FIRST LOCATION TO BE CLEARED 


319 


001446 


00502b 








CLR 


(R6)+ ; > CLEAR MEMORY LOCATION 


320 


001 450 


022706 


001140 






CMP 


ISWR,R6 I [ DONE? 


321 


001454 


001 374 








PNF 


.-6 [[LOOP BACK IF NO 


322 


001456 


012706 


001100 






MOV 


#STACK,SP [ [SETUP THE STACK POINTER 


323 










[ ) INITIALIZE A 


FEW VECTORS 


324 


001462 


012737 


024010 


000034 




MOV 


#STRAP,e#TRAPVEC * [ TRAP VECTOR FOR TRAP CALLS 


325 


j»01 470 


012737 


000340 


000036 




MOV 


*340,MTRAPVEC+2;LEVEL 7 


326 


001476 


012737 


024070 


000024 




MOV 


ISPWRDN.MPWRVEC II POWER FAILURE VECTOR 


327 


001504 


012737 


000340 


000026 




MOV 


«340,0*PWRVEC+2 ; [LEVEL 7 


328 










; [SIZE 


FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


329 










[[EOUAL 


TO A 


1", SETUP FOR A SOFTWARE SWITCH REGISTER. 


3 30 


001512 


013746 


000004 






MOV 


MERRVEC-(SP) [[SAVE ERROR VECTOR 


331 


001516 


012737 


001552 


000004 




MOV 


#64S.»#ERRVEC [[SET UP ERROR VECTOR 


332 


001524 


012737 


177570 


001 140 




MOV 


«DSWP,SWR ; I SETUP FOR A HARDWARE SWICH REGISTER 


333 


001532 


012737 


177570 


001142 




MOV 


# DD ISP » DISPLAY ; [ AND A HARDWARE DISPLAY REGISTER 


334 


001540 


022777 


177777 


177372 




CMP 


#-l,9SWR J ; TRY TO REFERENCE HARDWARE SWR 


335 


001546 


001012 








BNE 


66$ ; J BRANCH IF NO TIMEOUT TRAP OCCURRED 


336 














; [ AND THE HARDWARE SWR IS NOT * -1 


337 


001550 


000403 








BR 


65$ ; I BRANCH IF NO TIMEOUT 


338 


001552 


012716 


001560 




6461 


MOV 


*65$»CSP) [[SET UP FOR TRAP RETURN 


339 


001556 


000002 








RTI 




340 


001560 


012737 


000176 


001140 


65$: 


MOV 


ISWREGiSWR ; (POINT TO SOFTWARE SWR 


341 


001566 


012737 


000174 


001142 




MOV 


#DISPREG, DISPLAY 


342 


001574 


012637 


000004 




66$: 


MOV 


(SP)+,S*ERRVEC ; | RESTORE ERROR VECTOR 


343 
344 


001600 


004737 


022526 






JSR 


PC,STKINT ', INITIALIZE THE TTY INTERRUPT HANDLER 


345 










.SBTTL 


TYPE PROGRAM NAME 


346 










[ [ TYPE 


THE NAME 


OF THE PROGRAM IF FIRST PASS 


347 


001604 


005227 


177777 






INC 


#-1 [[FIRST TIME? 


348 


001610 


001045 








BNE 


67$ ; ) BRANCH IF NO 


349 


001612 


104401 


001650 






TYPE 


.68$ ;;TYPE ASCIZ STRING 


350 










.SBTTL 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


351 


001616 


005737 


000042 






TST 


9*42 ; | ARE WE RUNNING UNDER XXDP/ACT? 


352 


001622 


001006 








BNE 


69$ ; | BRANCH IF YES 


353 


001624 


023727 


001140 


000176 




CMP 


SWR,»SWREG [[SOFTWARE SWITCH REG SELECTED? 


354 


001632 


001005 








BNE 


70$ [ [BRANCH IF NO 


355 


001634 


104405 








GTSWR 


[[GET SOFT-SWR SETTINGS 


356 


001636 


000403 








BR 


70$ 


357 


001640 


112737 


000001 


001134 


69*: 


MOVB 


ll,$AUTOB [[SET AUTO-MODE INDICATOR 


358 


001646 








70s: 






359 


001646 


000426 








BR 


67$ [[GET OVER THE ASCIZ 


360 










;i68$: 


.ASCIZ 


<CRLE>/RK11 UTILITY PACk»GE/< 15>< 12>/MAlNDEC- 1 1 -DZRKl-D/<CRLF> 


361 


001724 








67SI 






362 


001724 


105737 


001312 






TSTB 


(MMODE 


363 


001730 


100002 








BPL 


1$ 


364 


001732 


000137 


003432 






JMP 


MSECOND 


365 


001736 


105737 


001325 




is: 


TSTB 


STFLG ) PRINT ONLY THE FIRST TIME 


366 


001742 


001402 








BEQ 


10* 


367 


001744 


000137 


002534 






JMP 


TABLTY 


368 


001750 


105237 


001325 




10S1 


INCB 


STFLG 


369 


001754 


105037 


001326 




STRT1 : 


CLRB 


OSPFLG 
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SEQ 0031 



370 


001760 


104401 


00 X 766 




TYPE 


#65$ ::TYPE ASCIZ STRING 




371 


081764 


000423 






8R 


64$ rlGET OVER THE ASCIZ 




372 








• 


.ASCIZ 


<15><12X15><12>/ NAME 


TYPE/ 


373 


002*334 






* 








374 


002034 


104 401 


002042 






rOf» r M Ire. HOl,l£ oininlj 




375 


002040 


00042 1 








&#»e • i("FT Avro THE* A cp T 9 




376 








• 


* 




/ 


377 


0021 04 














378 


002104 


1 04401 


0021 12 




_ 

• 


#69$ JjTyPE ASCIZ STRING 




3 79 


002110 


00042 1 








68$ :*GET OVER THE ASCIZ 




380 










.ASCIZ 






381 


002154 














382 


002154 


104 401 


002 162 




TY p E 


#71$ J .TYPE ASCIZ STRING 




38 3 


002 1 60 


00042 1 








70S rJGET OVER THE ASCIZ 




384 










.ASCIZ 






385 


002224 






70s : 








386 


032224 


1 0440 1 


0022 32 




TYPE 


#73$ fJTYPE ASCIZ STRING 




387 


002230 


00042 1 








72$ # J GET OVER THE ASCIZ 




388 








7 i 7 3 S ! 


.ASCIZ 


^ 1 C % ^ 1 IS ypnDUSTTffD.CIlfir&rr VrDTPTTD 

*15>v] z'/rurnfti jtK^auer ftk, £. VLrir ilk 




389 


002274 






72$ : 








390 


002274 


104 401 


002 302 




TYPE 


#75$ J'TYPE ASCIZ STPING 




391 


002300 


00042 1 






BR 


74$ f J GET OVER THE ASCIZ 




392 








; ; 75S : 


• ASC 1 Z 


<15X12^/RK05 CONTROL PANEL TEST 




393 


002 344 






74$ : 








39 4 


032344 


1 ,1 4 4 1 


0w 2 35 2 




TyPE 


#77$ JJTyPE ASCIZ STRING 




395 


002 350 


0*>042 1 








76$ } S GET OVER THE ASCIZ 




39b 








; ;77$: 




* 1 c a t\ # o v {ac piwTDnr d&mbt tfct «^ 

vl5#*l/'/MM55 ^jniRUlj r/AH&lj I to 1 




397 


002 4 1 4 














398 


002414 


1 4 40 1 


22 




p 


. 1QC • iTvPf xCrtTg tTDTWr 

11^9 tMI't AOLlt oiniNy 




399 


002420 


000421 








Toe "firT ni/ro Tut icfr) 

too i UVE.K XRL AcLl£ 




400 








• * 79$ : 


. ASC 


c\/OS/UITtn 1[ TTUHCNT DAIITTIJC 
^1 W/ntAU AljluHPfiHI KUUliWC 


6/ 


4tfl 


002464 






78$ : 








4 02 


002464 


104401 


00247 2 




p 


lOis » i » If t A fl tii iJjriNi) 




403 


002470 


000421 






D 


pne • • KFT nVFQ tug* »cf t7 




4 34 










• 


<15><12> /POWER FAILURE (WRITE) TEST 




405 


002534 














40b 


0025 34 






TAbLTy * 








4w7 


002534 


104401 


002542 






cct ••TYDF !CfT7 ETDtuT 




408 


002540 


000405 








64$ ; ; GET OVER THE ASCIZ 




409 








hit- 


.ASCIZ 


<15><12><15><12>/TYPE*/ 




110 


002554 














41 1 


vi02554 


104 411 






POOCT 


;GET THE TEST NUMBER 


FROM THE OPERATOR 


41? 


002556 


012600 






MOV 


(SP)+#R0 ;STORE IT IN R0 




41 3 


002560 


0227P0 


00001 M 




CMP 


#10, R0 ;VALID NUMBER ? 




414 


002564 


00 3403 






BLE 


NG ; BR IF NOT 




415 


002566 


006100 






POL 


P0 ; ALIGN THE NUMBER FOR 


DISPATCHING 


4 1 6 


002570 


0001 70 


002b 02 




JMP 


BBEGIN ( R0) ;G0 TO THE SELECTED TEST 


4) 7 


0025 7 4 


I 044k) 1 


001 160 


HQ: 


TYPE. 


#SQUES ;'?* 




418 


0026P0 


000755 






BP 


TABLTY 




419 
















4?0 








J TEST FNTRY DISPATCH TABLE 




421 

422 


002602 


001754 




begin: 


STRT1 






123 


002604 


002622 






SECT. 3 






424 


002606 


010350 






SECT. 2 






525 


002610 


011762 






SECT.l 
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426 


002bl2 


013744 


127 


00261 4 


017154 


*28 


002616 


020510 


4?9 


002620 


021402 


4 30 






4 31 






432 






433 






434 






435 






436 






437 


002622 


000240 


138 


002624 




139 


002624 


1 04401 


4 40 


002630 


000415 


441 






442 


002664 




443 


002664 


104401 


444 


002670 


00041 7 


4 45 






446 


002730 




447 


002730 


104410 


448 


002732 


012600 


449 


002734 


012701 


450 


002740 


105037 


151 


002744 


035037 


452 


002750 


112037 


15 3 


002754 


122737 


454 


002762 


001 770 


155 


002764 


162737 


456 


002772 


1 00403 


157 


002774 


004737 


458 


003000 


000761 


»59 


003002 


122740 


460 


003006 


001402 


461 


003010 


0047 37 


462 


003014 


022701 


46 3 


003020 


001 403 


464 


003022 


012721 


165 


003026 


000772 


466 






467 






468 






169 






473 






171 


003030 




472 


,103030 


104401 


47 3 


003034 


000416 


474 






475 


003072 




476 


033072 


000240 


47 7 


003074 


1 04407 


478 


003076 


01 2637 


479 


003102 


1 04401 


480 


003106 


022737 


481 


003114 


001411 



001166 
00131 1 
001330 
001 330 
000054 

000060 

004052 

000056 

004122 
001 206 



001330 
001330 
000131 
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gkt value for software switch register 

SECT.0 
SECT. 4 
SECT. 5 
SECT, 6 



.S8TTL COMPATIBILITY TEST 



;POUTTNE TO PICK UP THE DRIVE NUMBER TO BE TESTED 
(ON SYSTEM 1. 



SEQ 0032 



SECT. 3: 
AIJTSL2 I 



: ;65$: 
64$: 



; ;67$; 
66$: 



TYPE 


.65$ 


:TYPE ASCIZ STRING 




64$ 


! GET OVER THE ASCIZ 


.ASCIZ 


<15><12>/TERMINATE WITH ',<CR>V 


TYPE 


,67$ 


; TYPE ASCIZ STRING 


BR 


66$ 


; GET OVER THE ASCIZ 


.ASCIZ 


<15><12>/DRIVE NUMBERS ON SYSTEM 1=/ 


RDLIN 






MOV 


(SP)+,R0 


PICK UP THE ADDRESS OF THE INPUT BUFFER 


MOV 


*L0GA,R1 


GET THE ADDRESS OF THE LOGICAL UNIT TBL 


CLPP 


a*DRCNTl 


CLEAR THE DRIVE COUNTER 


CLR 


GKKYTEMP 


CLEAR TEMP 


MOVE 


(R0) + ,e#KYTF.MP 


GET THE FIRST DRIVE # 


CMPB 


«54,a#KYTEMP 


IS IT A COMMA THAT WAS TYPED? 


BEQ 


1$ 


IF YES GO BACK 


SUB 


*60,9#KYTEMP 


MAKE ASCII A DRIVE * 


BMI 


2$ 


IF RESULT NEGATIVE BRANCH 


JSR 


PC # STORE 


IF RESULT POSITIVE JUMP 


BR 


1$ 


AFTER STORING GET NEXT I 


CMPB 


*56,-(R0) 


WAS NEGATIVE RESULT A TERMINATOR? 


BEQ 


is 


IF YES BRANCH 


JSP 


PC. ILEGAL 


IF NO BAD CHARACTER JUMP 


CMP 


*DRV0,R1 


IS THE TABLE FULL 


BEQ 


SECSYS 


IF YES BRANCH 


MOV 


• 1 00000, ( PI ) + 


IF NO FILL TABLE WITH DOWN INDICATOR. 


BR 


3$ 


GO BACK AND CHECK 



fROUTINE TO DETERMINE IF THERE IS A SECOND 
• SYSTEM AND IF SO TO GET THE NUMBER OF THE 
JDRIVE ON THIS SYSTEM 



; :65$: 
64$: 



TYPE 
BR 

.ASCIZ 

NOP 

RDCHP 

MOV 

TYPE 

CMP 

BEQ 



.65$ ;;type asciz string 

b4$ ; i get over the asciz 

<15><12>/is there a second system?/ 



(SP)+#9#KYTEMP 
# KYTEMP 
*131#9»KYTEMP 
PR02 



;REaD A CHARACTER 
; GET THE RESPONSE 
JECHO 

;WAS IT A "Y" (FOR YES) ? 

;IF YES BRANCH TO PROCESSOR 2 
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SEQ 0033 



482 


003116 


022737 


000116 


001330 




CMP 


#116,MKYTEMP 


;HAS RESPONSE LEGAL (N FOR NO) ? 


483 


003124 


001460 








BEQ 


PROl 


;IF LEGAL BRANCH 


484 


003126 


104401 


0031 34 






TYPE 


,67$ 


WTYPE ASCIZ STRING 


485 


0031 32 


000401 








BR 


66$ 


; ; GET OVER THE ASCIZ 


486 










; >67i: 


.ASCIZ 


/?/ 




487 


003136 








66$: 








468 


003136 


000734 








BR 


secsys 


(GO BACK ASK AGAIN 


489 


003140 


152737 


000377 


001313 


PP.021 


BjSB 


#377,9#PRONUM 


;set flag two processors 


490 


003146 


000240 








NOP 




;*•• 


491 


003150 


104401 


003156 






TYPE 


,65$ 


;;TYPE ASCIZ STRING 


492 


003154 


000406 








BR 


64$ 


; I GET OVER THE ASCIZ 


493 










! 1 6S» t 


.ASCIZ 


<15><12>/DRIVE 


1 ■/ 


494 


003172 








64S1 








495 


003172 


1 04407 








RDCHP 




} READ A CHARACTER 


496 


003174 


012637 


001330 






MOV 


( SP) + » BlKYTEMP 


:PICK UP THE RESPONSE 


497 


003200 


104401 


001 330 






TYPE 


, KYTEMP 


J ECHO 


498 


003204 


162737 


000060 


001330 




SUB 


#60, BIKYTEMP 


; MAKE IT A NUMBER 


499 


003212 


100420 








BMI 


BADINP 


;IF NOT A NUMBER, BRANCH 


500 


003214 


022737 


000010 


001330 




CMP 


#10,9#KYTEMP 


;IS IT A LEGAL *? 


501 


003222 


003414 








BLE 


BADINP 


;IF NO BRANCH 


502 


003224 


000337 


001330 






SWAB 


BtKYTEMP 


J GET THE DRIVE # TO THE HIGH BYTE 


503 


003230 


0S2737 


040000 


001330 




BIS 


#BIT14,B#KYTEMP 


>SET THE SECOND SYSTEM BIT 


504 


003236 


113705 


001 31 1 






MOVB 


B#ORCNTl, R5 


sGET THE DRIVE COUNT 


505 


003242 


006105 








ROL 


R5 


; MAKE IT AN INDEX 


506 


003244 


013765 


001 330 


001 166 




MOV 


BtKYTEMP, LOGACR5) JSTORE THE SYSTEM #2 WORD 


507 


003252 


000407 








BR 


GO 


;GO DO THE TEST 


508 


003254 








BADINP: 








509 


003254 


104401 


003262 






TYPE 


,65$ 


J t TYPE ASCIZ STRING 


510 


003260 


000401 








BP 


64$ 


; I GET OVER THE ASCIZ 


511 










; »65$: 


.ASCIZ 


/?/ 




512 


003264 








64$ « 








513 


003264 


000725 








BR 


PR02 


;go back ask again 


514 


003266 


105037 


001313 




PROl 1 


CLRB 


MPRONUM 


;Clear the flag one processor 


515 
516 










TTHIS IS THE ACTUAL PROGRAM 




517 
518 


003272 


012700 


001166 




Go: 


MOV 


*LOGA,R0 


;get the table address to r0 


519 


003276 


105037 


001324 






CLRB 


B#IDEX 


;clrb the index 


520 


003302 


000405 








BR 


G02 


;BRANCH AROUND INCREMENT ROUTINE 


521 
522 


003304 


062700 


000002 




GOl ! 


ADD 


»2,R0 


; INDEX thru the table 


523 


003310 


022700 


001206 






CMP 


#DRV0,R0 


JDONE? 


524 


003314 


001414 








BEQ 


EXIT 


1 IF YES GET OUT 


525 


003316 


005710 






G02: 


TST 


(R0) 


;IS THE DRIVE ACTIVE 


526 


003320 


100001 








BPL 


G03 


;IF YES BRANCH 


527 


003322 


000770 








BR 


GOl 


;NO TRY THE NEXT ONE 


528 


003324 


011037 


001164 




G03I 


MOV 


(R0),B#DRACTV 


;PICK UP THE ACTIVE DRIVE WORD 


529 


003330 


004737 


004154 






JSR 


PC, CYCLE 


; CALL CYCLE (PICK UP DRIVE *, CYL BASE, AND CALL 


530 


003334 


004737 


005064 






JSR 


PC.WRLINK 


; CALL WRITE LINK TO LOAD REGISTERS FOR WRITE 


531 


003340 


004737 


005612 






JSR 


PCROLINK 


(CALL READ LINK TO LOAD REGISTERS FOR READ 


532 


003344 


000757 








BR 


GOl 


JGO GET NEXT DRIVE 


533 


003346 


012700 


001166 




EXITS 


MOV 


»LOGA,R0 




534 


003352 


022700 


001 206 




EXTFR2 1 


CMP 


#DRV0,R0 




535 


003356 


001414 








BEQ 


EXITX 




536 


003360 


032710 


040000 






BIT 


*BIT14, (R0) 




537 


003364 


00101 1 








BNE 


EXITX 
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[-D 


MACY11 27(1006) 


04-OCT 


-76 14: 


01 PAGE 12 




OZBKID. 


PI 1 23 


!-SEP-76 


10110 


COMPATIBILITY TEST 




538 


003366 


005720 






TST 


(R0) + 




539 


003370 


100770 






BMI 


EXTFR2 




540 


003372 


014001 






MOV 


-(R0),R1 




541 


003374 


004737 


004230 




JSR 


PCD02 




542 


003400 


004737 


005612 




JSR 


PCROLINK 




543 


003404 


005720 






TST 


(P0) + 




544 


003406 


000761 






BR 


EXTFR2 




545 


003410 






EXITXI 








546 


003410 


104401 


003416 




TYPE 


,65$ 


; ; TYPE ASCIZ STRING 


547 


003414 


000404 






BR 


64$ 


; ; GET OVER THE ASCIZ 


548 








> j65$: 


.ASCIZ 


<15><12>/DONEl/ 




549 


003426 






64$: 








550 


003426 


000137 


001440 




JMP . 


MSTART 


; RESTART 


551 
552 








[THIS IS PROCESSOR #2 CODE. THIS 


- ROUTINE ASKS FOR AND UNPACKS THE CONTROL 


553 








; WORDS 


FROM THE 


FIRST PROCESSOR. 




554 
555 


003432 






second: 








556 


003432 


104401 


003440 




TYPE 


,65$ 


! :TYPE ASCIZ STRING 


557 


003436 


000415 






BR 


64$ 


; ; GET OVER THE ASCIZ 


558 








; ;65$: 


.ASCIZ 


<15><12>/COMPATIBILITY-SYSTEM#2/ 


559 


003472 






64$: 








560 


003472 


012704 


000200 




MOV 


#200, R4 


;SET UP MASK BIT IN R4 


561 


003476 


012703 


000001 




MOV 


#1,R3 


;SET UP WORD COUNTER IN R3 


562 


003502 


012702 


001166 




MOV 


* LOGA, R2 


; GET THE TABLE ADDRESS 


563 


003506 






INSYS2: 








564 


003506 


104401 


003514 




TYPE 


,65$ 


;;TYPE ASCIZ STRING 


565 


003512 


000405 






BR 


64$ 


; J GET OVER THE ASCIZ 


566 








; j 6 5 $ : 


•ASCIZ 


<15><12>/W0RD / 




567 


003526 






64$: 








568 


003526 


000240 






NOP 




;*•* 


569 


003530 


010346 






MOV 


R3,-(6P) 


; GET READY TO TYPE WORD COUNTER 


570 


003532 


104403 






TYPOS 






571 


003534 


006 






. BYTE 


6 




572 


003535 


000 






.BYTE 







573 


003536 


104401 


003544 




TYPE 


,67$ 


; t TYPE ASCIZ STRING 


574 


003542 


000401 






BR 


66$ 


; ; GET OVER THE ASCIZ 


575 








; (67$: 


.ASCIZ 


/■/ 




576 


003546 






66$: 








577 


003546 


104411 






RDOCT 






578 


003550 


012600 






MOV 


(SP)+,R0 


fPlCK UP THE OCTAL WORD 


579 


003552 


110001 






MOVB 


R0,R1 


;GET THE FIRST DRIVE TO Rl 


580 


003554 


000300 






SWAB 


R0 


; GET THE SECOND DRIVE TO R0 LOW BYTE 


581 


003556 


042700 


177400 




aic 


f 177400, R0 


{CLEAR THE UNUSED BITS 


582 


003562 


042701 


177400 




BIC 


#177400, Rl 


1 CLEAR THE UNUSED BITS 


■583 


003566 


006000 






ROR 


R0 


; ROTATE RICHT R0 


584 


003570 


103003 






BCC 


2$ 


(IF CARRY IS CLEAR BRANCH 


585 


003572 


052700 


000200 




BIS 


IBIT7,R0 


;SET DOWN BIT IF CARRY SET 


586 


003576 


000241 






CLC 




;AND CLEAR THE CARRY BIT 


597 


003600 


006001 




211 


ROR 


Rl 


;NOW DO THE SAME FOR Rl 


588 


003602 


103002 






BCC 


3$ 


I IF NO ERROR, BRANCH 


589 


003604 


052701 


000200 




BIS 


IBIT7,R1 


;IF ERROR SET THE BIT 


590 


003610 


110162 


000001 


3$: 


MOVB 


R1,1(R2> 


;SET DRIVE FIRST IN TABLE 


591 


003614 


004737 


004010 




JSR 


PC, MASKER 


(CALL THE MASK CONTROL SUBROUTINE 


592 


003620 


1 10062 


000001 




MOVB 


R0,1(R2) 


; SET DRIVE SECOND IN TABLE (NEXT WORD) 


593 


003624 


004737 


004010 




JSR 


PC, MASKER 


;CALL THE MASK CONTROL SUBROUTINE 
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SEQ 0035 



594 


003630 


005203 






INC 


R3 


5INCREMENT THE WORD COUNTER 


595 


003632 


000725 






BR 


INSYS2 


;G0 BACK AND GET NEXT WORD 


596 


003634 


05041 2 




F.XITAS 


SIS 


R4» (p.2) 


;FILL THE TABLE (LAST WORD ) 


597 


003636 


006004 






ROR 


R4 


JWITH ALL BITS SET 


598 


003640 


103375 






BCC 


EXITA 


;G0 BACK IF NOT DONE 


599 


003642 


04271 2 


1 74000 


exits: 


BIC 


» 174000, CR2) 


;CLEAR DOWN AND SECOND SYSTEM BITS 


600 


003646 


010200 






MOV 


R2 » R0 


; GET ADDRESS TO R0 (CURRENT TABLE) 


601 


003650 


005722 






TST 


(R2) + 


; ADD 2 TO THE POINTER 


602 


003652 


022702 


001206 


FIL.DN: 


CMP 


I DRV0#R2 


; TABLE FULL? 


603 


003656 


001403 






BEQ 


26 


f IF YES BRANCH 


604 


003660 


012722 


100000 




MOV 


#BIT15, (R2) + 


; FILL THE TABLE 


605 


003664 


000772 






BR 


FIL.DN 


;G0 BACK TRY AGAIN 


606 


003666 


011001 




2S: 


MOV 


(R0), Rl 


; GET THE WORD TO Rl 


007 


003670 


1 10102 






MOVB 


R1,R2 




608 


003672 


004737 


005214 




JSR 


PC, MASK 




609 


003676 


004737 


004230 




JSR 


PCf D02 


; FORM DRIVE # FOR MOUNT 


610 


003702 


004737 


005064 




JSR 


PC, WRLINK 


; WRITE NEW INFO 


61 1 


003706 


004737 


005612 




JSR 


PC , RDLINK 


; READ SAMPLE (ALL DRIVES) 


612 


0037 1 2 


104401 


003720 




TYPE 


»65S 


t JTYPE ASCIZ STRING 


613 


003716 


P00427 






BR 


64$ 


; ; GET OVER THE ASCIZ 


614 








; »65$: 


.ASCIZ 


<15><12>/D0NE 


SYSTEM 2 RESTART SYSTEM 1, TYPE WORD 


615 


003776 






64s: 








6i & 


003776 


01 i 046 






MOV 


( R0) , " C SP) 


j GET WORD FOR SYSTEM 1 AND TYPE 


617 


004000 


104403 






TYPOS 






618 


004002 


006 






, BYTE 


6 




619 


004003 


001 






.BYTE 


1 




620 


004004 


000000 




1$: 


HALT 




; HALT (FINISHED SYSTEM #2) 


621 


004006 


000776 






BR 


1$ 


;G0 BACK TO HALT 


622 
623 








;this routine 


SETS UP THE MASK 


BITS IN THE LOG TABLE FOR 


624 








S SYSTEM 


• 2, IF 


A DRIVE IS DOWN 


NO BIT IS SET BUT THE MASK 


625 








;IS SHIFTED. 






026 
















627 


004010 


005712 




masker: 


TST 


(R2) 


;IS THE DRIVE UP 


628 


00401 2 


100401 






BMI 


RETPN4 


JIF NO, BRANCH 


629 


004014 


110412 






KOVB 


R4, (R2) 


JMOVE THE MASK BlT IN THE TABLE 


630 


004016 


006004 




PETRN4 : 


ROR 


R4 


; ROTATE THE MASK 


631 


004020 


103003 






BCC 


IS 


.•DONE?, IF N0< BRANCH 


632 


004022 


012716 


003642 




MOV 


ifcXITB, CSP) 


; SET UP FOR RETURN 


633 


004026 


0002H7 






RTS 


PC 




634 


004030 


032712 


040000 


is: 


BIT 


*BIT14,(R2) 


SIS THIS SYSTEM * 2'S DRIVE? 


635 


004034 


001403 






BEQ 


2$ 


(IF NO, BRANCH 


636 


004036 


012716 


003634 




MOV 


*EXITA,(SP) 


JSET UP FOR RETURN 


637 


004042 


000207 






RTS 


PC 




638 


004044 


062702 


000002 


2$: 


ADD 


*2,R2 


; INDEX THRU LOGA TABLE 


639 


004050 


000207 






RTS 


PC 


J RETURN 


640 
641 








:routine to build the ACTIVE LOGICAL UNIT TABLE 


642 
643 


004052 


022737 


000010 001330 


store: 


CMP 


*10,9#KYTEMP 


,*IS INPUT A LEGAL NUMBER? 


644 


034360 


000240 






NOP 




; *** 


645 


004062 


003417 






BLE 


I LEGAL 


!IF NOT BRANCH 


646 


004064 


000337 


001330 




SWAB 


SIKYTEMP 


; ALIGN DRIVE # FOR TABLE 


647 


004070 


HI 3721 


001330 




MOV 


MKYTEMF. CR1) + 


}PUT THE WORD IN THE TABLE 


648 


004074 


005037 


001 330 




CLR 


8#KYTEMP 


;CLEAR THE TEMP WORD 


649 


004100 


105237 


00131 1 




INC6 


<a*DRCNTl 


S INCREMENT THE COUNTER 
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650 


034104 


P22701 


001 206 




CMP 


IDRV0.R1 




;IS THE TABLE FULL? 


651 


0041 1 


001401 






BEQ 


TBLFUL 




;IF YES BRANCH 


652 


004112 


000207 






RTS 


PC 




JIF NO RETURN 


653 


0041 14 


01 271 6 


003030 


tblful: 


MOV 


#SECSYS, 


(SP) 


:IF TABLE FULL SET UP FOR SYSTEM 


654 


004120 


000207 






RTS 


p c 




; RETURN 


655 


004122 


01271b 


002624 


Ilegal: 


MOV 


#AUTSL2, 


(SP) 


;if illegal response, go back 


656 


004126 


104401 


004134 




TYPE 


,65S 




JjTYPE ASCIZ STRING 


657 


0041 32 


000407 






BR 


64$ 




;;GET OVER THE ASCIZ 


658 








;;65S: 


.ASCIZ 


/ILLEGAL 


INPUT/ 




659 


004152 






6 4$: 










660 


004152 


000207 






RTS 


PC 




; RETURN 



Obl 

66? 
663 
064 
665 
666 
bf>7 
6b« 
669 
670 
o71 
672 
o73 
674 
675 
076 
677 
678 
679 
b80 
o81 
682 
683 
084 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
7pl 
702 
703 
704 



004154 


01 1001 




004156 


032701 


040000 


004162 


001402 




004164 


000137 


006732 


004170 


113703 


001324 


004174 


1 16302 


001256 


004200 


004737 


005214 


004204 


012703 


0*>1 166 


004210 


020003 




004212 


001 002 




004214 


050223 




004<!16 


000401 




004220 


040223 




004222 


022703 


001206 


004226 


001 370 




004230 


0003H1 




004232 


000240 




004234 


1 10102 




004 2 36 


042702 


000370 


004242 


1 10237 


001314 


004246 


006102 




004250 


006102 




004252 


006102 




004254 


006102 




004256 


006102 




004260 


1 10237 


001353 


004264 


110237 


001335 


004270 


004737 


004276 


004274 


000207 




004276 


105237 


001324 


004302 


000240 




004304 


1 12737 


000005 


004312 


1 12737 


000003 


004320 


1 04401 


004326 


004324 


000414 




004356 








Of 





TTHIS ROUTINE GETS A DRIVE # AND BUILDS A TABLE OF 
! CYLINDER ADDRESS FOR USE By WRITE, (R0)»ADDRESS OF ACTIVE 
JWORO IN LOGICAL TABLE, IT ALSO SETS AND CLEARS THE MASK BITS 
JOF THE TABLE AS OPERATIONS INDICATE 



001321 
001322 



CYCLE: 


MOV 


CR0),R1 


GET THE LOGICAL UNIT ACTIVE WORD TO Rl 




BIT 


#BIT14,R1 


IS IT ON SYSTEM #2 




BEO 


CYCL2 


IF NO BRANCH 




JMP. 


9 » SEC ONE 


GO TO SYSTEM #2 


CYCL2: 


MOVB 


0*IDEX,R3 


GET THE INDEX VALUE 




MOVB 


MSKTBL ( R3 ) , R2 


GET THE MASK TO R2 


CYCLE2 : 


JSR 


PC, MASK 


CALL THE MASK SUBROUTINE 


ldflg: 


MOV 


*L0GA,R3 


GET TABLE ADDRESS TO R3 


2s: 


CMP 


R0,R3 


IS ACTIVE ADDRESSsTO FIRST ADDRESS 




BNE 


3S 


IF NO BRANCH 




BIS 


R2, (R3)+ 


IF YES SET BITS TO SHOW WRITE 




BR 


4$ 


BRANCH TO SEE IF DONE 


3$: 


BIC 


R2» (R3)+ 


CLEAR BITS TO SHOW OVER-WRITE 


4$: 


CMP 


«DRV0,R3 


DONE 




BNE 


2$ 


IF NO GO BACK 


D02: 


SWAB 


Rl 


GET DRIVE # TO LOW BYTE 




NOP 




**# 




MOVB 


R1,R2 


GET IT TO R2 




BIC 


«370,R2 


CLEAR THE UNUSED BITS 




MOVB 


R2,8f DRIVE 


GET THE DRIVE # 




ROL 


R2 


SHIFT THE DRIVE # TO 




POL 


R2 


ALIGN IT FOR THE DRIVE ADDR, 




ROL 


R2 


KEEP IT M0VING1 




ROL 


R2 


A LITTLE MORE I 




POL 


R2 


THERE IT IS 




MOVB 


R2,»#DSKTMP+1 






MOVB 


R2 , 9 * DSKADR+ 1 


GET IT TO DISK ADDR. TEMP, 




JSR 


PCMOUNT 


CALL MOUNT 




RTS 


PC 


RETURN 


mount: 


INCB 


9*IDEX J INCREMENT THE INDEX 




NOP 




•»•»» 




MOVB 


»5,P#ECNT ;SET ERROR CNTR TO 5 




MOVB 


*3,<a*CNTSIN 


SET SIN CNTR TO 3 




TYPE 


,65$ JJTYPE ASCIZ STRING 




BR 


64S ; > GET OVER THE ASCIZ 


: -,65$: 


.ASCIZ 


<15><12>/M0UNT PACK ON DRIVE •/ 
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SEO 0037 



706 


004362 


104403 








TYPOS 




[[GO TYPE—OCTAL ASCII 


707 


004364 


001 








, BYTE 


1 


[(TYPE 1 DIGIT(S) 


708 


004365 


000 








.BYTE 





; (SUPPRESS LEADING ZEROS 


709 


004366 


104401 


004374 






TYPE 


,67$ 


; [ TYPE ASCIZ STRING 


710 


004372 


000415 








BR 


66$ 


[ ) GET OVER THE ASCIZ 


711 










; >67»: 


.ASCIZ 


<15X12>/MAKE 


PACK WRITE ENABLE/ 


712 


004426 








66$: 








713 


004426 


1 04401 


004434 






TYPE 




■ mipvOe ic^TI CTDTUr 
lliirt AoCijL OirtlHli 


714 


004432 


000420 








BR 


68$ 


; : GET OVER THE ASCIZ 


715 










; 169$: 


.ASCIZ 


<15><12>/PRESS 


CONTINUE WHEN DRIVE RDY/ 


716 


004474 








68$: 








717 


004474 


000000 








HALT 






718 


004476 


004737 


004504 






JSP 


PC, INITIL 


•CALL INITIALIZER 


719 


004502 


000207 








RTS 


PC 


; RETURN 


720 
721 










;this routine 


INITIALIZES A DRIVE AND INSURES THAT IT IS READY AND 


722 










;write 


ENABLED 


, IT IS ENTERED 


FROM MOUNT OR FROM EXECUTE IF OPERATION 


723 
724 


004504 


010046 






initil: 


MOV 


R0,«(SP) 


;save R0 


725 


004506 


013700 


001334 






MOV 


B#DSKADR»R0 


; GET THE DRIVE * TO R0 


726 


004512 


042700 


001777 






BIC 


»1777f R0 


[ CLEAR THE UNUSED BITS 


727 


004516 


005037 


001346 




INITI2: 


CLR 


f»*TIMR 


[CLEAR THE TIMER 


728 


004522 


105037 


001 323 






CLRB 


0ITIMR2 




729 


004526 


000240 








NOP 




;»#» 


730 


004530 


010077 


174642 






MOV 


R0 , BRKDA 


[ GET DRIVE t TO 'DA' REGISTER 


731 


004534 


012777 


000001 


174626 




MOV 


*1,BRKCS 


; ISSUE CONTROL RESET + GO 


732 


004542 


004737 


005574 






JSR 


PCSMTME 




733 


004546 


105777 


174616 




1$: 


TSTB 


BRKCS 


[DID CONTROL READY SET 


734 


004552 


100423 








BMI 


2$ 


;IF YES BRANCH 


735 


004554 


005237 


001 346 






INC 


e#TiMR 


;IF NO INCREMENT THE TIMER 


736 


004560 


001372 








BNE 


1$ 


[IF TIMER NOT ZERO BRANCH 


737 


004562 


104401 


004570 






TYPE 


,65$ 


[[TYPE ASCIZ STRING 


738 


004566 


000415 








BR 


64$ 


; ; GET OVER THE ASCIZ 


739 










; ;65$: 


. ASCIZ 


<15><12>/CONTROL RESET TIME OUT/ 


740 


004622 








64$: 








741 


004622 


010077 


174550 




2$: 


MOV 


R0» BRKDA 


[DRIVE NUMBER TO 'DA' REG • 


742 


004626 


105777 


174532 






TSTB 


BRKDS 


;IS DRIVE READY 


743 


004632 


100415 








BMI 


3$ 


; IF YES BRANCH 


744 


004634 


104401 


004642 






TYPE 


• 67$ 


[[TYPE ASCIZ STRING 


745 


004640 


00041 1 








BR 


66$ 


; ) GET OVER THE ASCIZ 


746 










; ;67$: 


.ASCIZ 


<15><1 2>/DPIVE 


HOT READY/ 


747 


004664 








66$: 








748 


004664 


030714 








BR 


INITI2 


;GO BACK TRy AGAIN 


749 


004666 


032777 


00004M 


174470 


3$: 


BIT 


»BIT5,«RKDS 


SIS DRIVE WRITE LOCKEO? 


750 


004674 


001420 








PEO 


4$ 


;IF NO, BRANCH 


751 


034676 


104401 


004704 






TYPE 


>69S 


;:TYPE ASCIZ STRING 


752 


004702 


000414 








BR 


68$ 


; [ GET OVER THE ASCIZ 


753 










[ [69$: 


.ASCIZ 


<15><12>/DRIVE 


WRITE PROTECTED/ 


754 


004734 








68$: 








755 


004734 


000670 








BR 


INITI2 


[YES, GO BACK TRY AGAIN 


756 


004736 


005037 


001346 




4$: 


CLR 


8ITIMR 


;Clfar the timer 


757 


004742 


010077 


174430 






MOV 


P0, BRKDA 


; GET THE DRIVE « TO 'DA' REGISTER 


758 


004746 


012777 


000015 


174414 




MOV 


* 1.5, BRKCS 


f ISSUE DRIVE RESET + GO 


759 


004754 


004737 


005574 






JSR 


PCSMTME 




760 


004760 


105777 


1 74404 




5$: 


TSTB 


BRKCS 




761 


004764 


100375 








BPL 


5$ 
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COMPATIBILITY 


TEST 




762 


004766 


032777 


000100 


174370 


BIT 


«100,BRKDS 


; READ /WRITE/SEEK READY BIT SET? 


763 


004774 


001031 






BNE 


6$ 


:IF YES, BRANCH 


764 


004776 


005237 


001346 




INC 


BITIMR 


[NO, INCREMENT THE TIMER 


765 


005002 


001 366 






BNE 


5$ 


[GO BACK AND CHECK IF TIMER NOT 


766 


005004 


105737 


001 323 




TSTB 


a#TIMR2 




767 


005010 


001003 






BNE 


7$ 




768 


005012 


105237 


001323 




INCB 


B#TIMP2 




769 


005016 


000760 






BR 


5$ 




770 


005020 






7$: 








771 


005020 


104401 


005026 




TYPE 


,71$ 


; 1 TYPE ASCIZ STRING 


772 


005024 


000414 






BR 


70S 


; ; GET OVER THE ASCIZ 


773 








;>7i$: 


.ASCIZ 


<15><12>/DRIVE 


RESET TIMED OUT/ 


774 


005056 






70$: 








775 


005056 


000727 






BR 


4$ 


JGO BACK, TRy AGAIN 


776 


005060 


012600 




b$: 


MOV 


(SP)+,R0 


; RESTORE R0 


777 


005062 


000207 






RTS 


PC 


; RETURN TO CALLER 



778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
900 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 



;THIS ROUTINE TAKES CARE OF ALL LINKAGES FOR THE 

;F.XECUTE ROUTINE. IT FORMS THE ADDRESS AND SETS UP ALL THE 

; REGISTERS FOR THE WRITE OPERATION 



005064 


105037 


001316 




wrlink: 


CLRB 


MCOMND 


( INDICATE WRITE OPERATION 


005070 


000240 








NOP 




; »♦» 


005072 


113701 


001314 






MOVB 


B*DRIVE,R1 


; PICK UP THE DRIVE # 


005076 


006101 








ROL 


PI 


; MAKE IT A WORD INDEX 


005100 


016137 


001206 


001362 


1$: 


MOV 


DRV0(R1),9#PATTRN (PICK UP THE DATA PATTERN 


005106 


004737 


005262 






JSR 


PCCYLADR 


(CALL CYLINDER ADDRESS 


005112 


000401 








BR 


2$ 


( RETURN HERE IF NOT LAST BASE 


005114 


000207 








RTS 


PC 


; RETURN HERE IF LAST BASE 


005116 


012737 


001362 


001336 


2t: 


MOV 


#PATTRN, Bt BUS ADR (GET THE ADDRESS OF THE OUTPUT 


005124 


013737 


001342 


001340 




MOV 


9#CYLCNT,a#WPDCNT I GET THE WORD COUNT 


005132 


013737 


001354 


001332 




MOV 


B#WRITCS,a#CONTRL (GET THE CONTROL + STATUS WORD 


005140 


004737 


005362 






JSR 


PCEXECUT 


(CALL EXECUTE 


005144 


032737 


000020 


001334 




BIT 


*BIT4,a«DSKADR 


( WAS THIS WRITE SURFACE "1"? 


005152 


001006 








BNE 


3$ 


[IF YES BRANCH 


005154 


052737 


000020 


001334 




BIS 


»BIT4,MDSKADR 


( SET SURFACE ONE BIT 


005162 


105137 


001362 






COMB 


BfPATTRN 


(MAKE IT SURFACE ONE DATA 


005166 


000753 








BR 


2$ 


(RELOAD REGISTERS AND EXECUTE 


005170 


042737 


000020 


001334 


3$: 


BIC 


#BIT4, aCDSKADR 


[SET UP FOR SURFACE "0" 


005176 


105137 


001362 






COMB 


B| PATTRN 


; MAKE IT SURFACE DATA 


005202 


005202 








INC 


P2 


[INC. THRU SELECTED CYL, OFFSET TABLE 


005204 


004737 


005272 






JSR 


PCCYLOFF 


[GET THE CYLINDER VALUE 


005210 


000742 








BR 


2$ 


[RETURN HERE IF MORE TO READ 


005212 


000207 








RTS 


PC 


[RETURN HERE IF FINISHED 










JTHIS routine EXPECTS to find a 


MASK IN R2, AND FROM THIS MASK 










(BUILDS 


A TABLE 


(at c*ltbl) of 


CYLINDER ADDRESS OFFSETS! THE TABLE 










;IS TERMINATED 


BY A #377 




005214 


010546 






MASKI 


MOV 


R5,-(SP) 


[SAVE R5 


005216 


042702 


177400 






BIC 


•177400, R2 


[CLR THE UNUSED BITS OF THE MASK 


005222 


000240 








NOP 




[ •»* 


005224 


012703 


000200 






MOV 


*200,R3 


[ SET UP THE COMPARE MASK 


005230 


005004 








CLR 


R4 


(CLR THE INDEX COUNTER 


005232 


012705 


001274 






MOV 


»CYLTBL,R5 


; GET THE CYLINDER TABLE ADDRESS 


005236 


030203 






1$: 


BIT 


R2# R3 


[IS THE MASK BIT SELECTED IN BASE 
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TEST 




SIS 


005240 


001401 






BEO 


2 S 




819 


005242 


110425 






HOVB 


R4, (R5)+ 


JMOVE THE CYLINDER BASE TO THE TABLE 


923 


005244 


105204 






2S: INCB 


R4 


" INCREMENT THE BASE 


821 


005246 


006003 










r X^l Alt A TlSe LUWrflPL WASH. 


822 


005250 


103372 






BCC 


1$ 


;IF NOT DONE GO BACK 


823 


005252 


112715 


000377 




MOVB 


#377, CR5) 


;IF DONE LOAD FINISH FLAG 


824 


005256 


012605 






"J! 


( SP ) + , R5 




825 


005260 


000207 








PC 


• DrTtTDU Tfi rar.r.FD 

r KE.1UKI1 IV LHljuCK 


826 
827 












FORMS A CYLINDER 


ADDRESS FOR BOTH THE READ AND WRITE ROUTINES 


828 










J WHEN THE BASE 


Tior r Tc Pril T v 


TWnCYHTl TT DFTMDUC Tft Of"*9 f\V PflT.TITD 
XL KtiUpHj 1U ur UftuutK 


829 
830 


005262 


012703 


001 266 




CYLADR* MOV 


*BASE, R3 


"GET THE CYLINDER TABLE ADDRESS 


811 


005266 


012702 


001 274 




CYLAD2! MOV 




jget the selected cyl base addr. 


832 


005272 


111 204 






CYLOFF: MOVB 


(R2) rR4 


• rvt tuc* crt c*(*tcpi rvi 1/ n 1 hit to da 


833 


005274 


000240 












834 


005276 


122704 


000 3 7 7 






#377 R4 


• TC TT TUE* TSftT F TE* D M T M » T(1D 9 


835 


005302 


001 4 1 6 






tiro 

»T ? 


BASINC 


• TP VITC BS&kirU 
, XT XEt& DnHHLEI 


836 


005 304 


005046 






C LR 


" ( SP ) 


: INSURE CLEAN WORD 


837 


005306 


11 1316 






HOVB 


( R3 ) , ( SP) 


# GET THE CYL ADDRESS ON THE STACK 


838 


005310 


062604 








(SP)+,R4 


; AND IT TO THE SELECTED OFFSET 


839 


005312 


006104 






ROL 


R4 


JSHIFT THIS RESULT 


840 


00531 4 


006104 






ROL 


R4 


;T0 ALIGN THE NEWLY FORMED 


841 


005316 


006 104 






ROL 


R4 


JCYLINDER ADDRESS WITH BITS 


842 


005320 


006 104 








R4 


;5 THRU 12 OF RKDA AND 


843 


005322 


006104 








R4 


»STORE THIS IN DSKADR 


844 


005324 


042737 


01 7777 


00 13 34 


BIC 


#017777, B#DSKADR;CLEAR ALL BUT DRIVE NUMBER 


845 


005332 


050437 


001 3 34 




BIS 


R4» (MOSKADR 


;PUT IT IN DSKADR 


846 


005336 


000207 






RTS 


PC 




347 


005340 


005203 






BASINC: INC 


R3 


;PICK UP ADDRESS OF NEXT BASE CYL. 


848 


1)05342 


000240 






NOP 




; »»* 


849 


005344 


022703 


001 274 




CMP 


ICYLTBL, R3 


: ARE YOU FINISHED? 


85k) 


005350 


001 401 






BEQ 


RETRN3 


;IF YES, BRANCH 


851 


005352 


000745 






BR 


CYLAD2 


;NO GO BACK 


852 


005354 


062716 


000002 




RETRN3 : ADD 


#2, (SP) 


JSET-UP FOR PC+2 


853 


005360 


000207 






RTS 


PC 


; RETURN 


854 
855 










SROUTINE TO PERFORM INDICATED 


FUNCTION AND CHECK FOR 


856 










; DONE AND ERRORS 




857 
















858 


005362 


005037 


fin 1 a Ac. 




execut: clr 


9«TIMP 


, CLEAR THE TIMER 


859 


005366 


000240 






NOP 




;HALT HERE TO CHECK COMMAND ABOUT TO BE EXECUTED 


860 


00S370 


185037 


001 323 




ClRB 


B#TIMR2 


;CLEAR SECOND TIMER 


861 


005374 


01 3777 


001 334 




MOV 


a#DSKADR,BRKDA 


; LOAD THE DISK ADDRESS REGISTER 


362 


005402 


013777 


001 3 3 6 


171764 


MOV 


9#BUSADR, 9RKBA 


; LOAD THE BUS ADDRESS REGISTER 


363 


005410 


013777 


001 340 


1 7T7S4 
* 


MOV 


S#WRDCNT, SRKWC 


; LOAD THE WORD COUNT REGISTER 


864 


005416 


013777 


00 13 3 2 


137 4 


MOV 


BJCONTRL, BRKCS 


; LOAD THE CONTROL REGISTER 


365 


005424 


004737 






JSP 


PCSMTME 


; KILL TIME FOR RK11-C 


366 


005430 


105777 


17 37 34 




CHECK) : TSTb 


8RKCS 


;IS CONTROL READY SET 


867 


005434 


U'0011 






BPL 


TIME 


;IF NO BRANCH 


368 


005436 


004737 


006062 




JSP 


PC , ERRCHK 




869 


005442 


005737 


001360 




TST 


B*ERRFLG 


; ERROR? 


870 


005446 


001 403 






BEO 


1$ 


-, IF NO BRANCH 


371 


005450 


005037 


001360 




CLR 


PiEPRFLG 


;CLEAR THE FLAG 


372 


005454 


300742 






BR 


EXECUT 


; TRY AGAIN 


37 3 


005456 


000207 






is: RTS 


PC 
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COMPATIBILITY 


TEST 




874 


005460 


005237 


001346 




TIME: 


INC 


9#TIMR 




875 


005464 


000240 








NOP 




; •*» 


876 


005466 


001 360 








BNE 


CHECK1 




877 


005470 


105737 


001323 






TSTB 


B#TIMR2 


JSECOND TIMEOUT? 


873 


005474 


001003 








BNE 


IS 


jIF YES BRANCH 


879 


005476 


105237 


001 323 






INCB 


«#TIMR2 


; INDICATE SECOND TIMEOUT 


880 


005502 


000752 








BR 


CHECK1 


;G0 BACK 


881 


005504 


004737 


004504 




is: 


JSP 


PCINITIL 




882 


005510 


104401 


00551 6 






TYPE 


,65$ 


;;TYPE ASCIZ STRING 


883 


005514 


000426 








BR 


64S 


; ; GET OVER THE ASCIZ 


884 










; ;65S: 


.ASCIZ 


<15><12>/TIMED 


OUT ON OPERATION RETRY IN PROGRESS/ 


385 


005572 








64$: 








88b 


005572 


000673 








BR 


EXECUT 




887 


005574 


312737 


000500 


001 346 


SmTme: 


MOV 


#500,S#TIMR 




388 


005602 


005337 


001 346 




is: 


DEC 


a»TIMR 




889 


005606 


001 375 








BNE 


1$ 




893 


005610 


000207 








RTS 


PC 




891 
892 










;this 


ROUTINE 


CHECKS TO SEE IF 


A DRIVE IS ACTIVE FROM A 


893 










;wpite 


OPERATION, IT GETS THE 


READ MASK TO R3, AND THE 


894 










;expected data 


PATTERN TO "PATTERN", AND THEN CALLS ADDRESS 


895 










;CONTR0L. 






896 


















897 


00561 2 


010046 






RDLINK 


: MOV 


R0,-CSP) 


; SAVE R0 


393 


005614 


000240 








NOP 




; »»* 


399 


005616 


152737 


000377 


001 316 




BISB 


#377,9#C0MND 


; INDICATE READ OPERATION 


900 


005624 


312701 


001 166 






MOV 


#L0GA,R1 


; GET THE TABLE ADDRESS TO Rl 


901 


005630 


012705 


001 305 






MOV 


tSECTBL, R5 


; GET THE SECTOR TABLE ADDRESS 


702 


005634 


000405 








BR 


R02 


;SKIP OVER THE INDEX, FIRST PASS 


903 


005636 


062701 


000002 




PD1 : 


ADD 


#2,R1 


; ADD 2 TO THE ADDRESS 


90i 


005642 


022701 


001206 






CMP 


#DRV0,P1 


; ARE YOU THRU THE ENTIRE TABLE 


905 


005646 


001503 








BEO 


EXIT2 


;IF YES EXIT 


906 


005650 


00571 1 






RD2: 


TST 


CR1 ) 


;IS THE DRIVE ACTIVE 


907 


005652 


100001 








BPL 


RD3 


;IF YES BRANCH 


908 


005654 


000770 








BR 


RD1 


;IF NO GET NEXT WORD 


909 


005656 


01 1 100 






RD3: 


MOV 


(R1),R0 


; GET THE ACTIVE WORD TO R0 


910 


005660 


010002 








MOV 


R0,R2 


;COPY THE WORD 


311 


005662 


000300 








SwAB 


R0 


; GET THE DRIVE I TO THE LOW BYTE 


912 


0i?S664 


042700 


177770 






BIC 


1177770, R0 


;CLR ALL BUT THE DRIVE # 


913 


005670 


1 10037 


001 31 7 






MOVB 


R0 , a# WRTNBY 


;SAVE THE DRIVE # 


914 


005674 


006100 








ROL 


R0 


; MAKE IT AN INDEX 


915 


005676 


016037 


001 206 


001 362 




MOV 


DRV0CR0),9|PATTRN fPICK UP THE DATA PATTERN 


916 


005704 


0k-4737 


005214 






JSR 


PC, MASK 


;CALL THE MASK SUBROUTINE 


917 


005710 


004737 


005262 






JSR 


PCCYLADR 


;G0 FORM A CYLINDER ADDRESS 


918 


005714 


000401 








BR 


RD4 


; RETURN HERE IF NOT LAST BASE ADDR. 


919 


00571 6 


000747 








BR 


RD1 


;IF LAST BASE ADDRESS, RETURN HERE 


920 


005 7 20 


053737 


001352 


001334 


PD4 : 


BIS 


BtDSKTMP,B#DSKADP JSET THE DRIVE # BITS IN DISK ADDR 


921 


005726 


152537 


001334 




RD5 : 


BISB 


(R5)+,B#DSKADR 


; SET THE SECTOR BITS IN DISK ADDR. 


922 


005732 


012737 


007336 


001336 


RD6: 


MOV 


*RDBUFF,»#BUSADR ; GET THE BUFFER ADDR. 


923 


005740 


000240 








NOP 




;»** 


924 


005742 


013737 


001 344 


001340 




MOV 


a#SECCNT,9»WRDCNT ; GET THE WORD COUNT 


925 


005750 


01 3737 


001 356 


001332 




MOV 


S# READCS, BfCONTRL ; GET THE READ CONTROL WORD 


926 


005756 


004737 


005362 






JSR 


PC, EXECUT 


;D0 THE READ 


927 


005762 


004737 


006430 






JSR 


PC, RDCHK 


JCHECK THE DATA 


928 


005766 


042737 


000017 


001 334 




BIC 


#17,B#DSKADR 


;CLR THE SECTOR BITS IN DISK ADDR. 


929 


005774 


022705 


001 311 






CMP 


•0RCNT1 ,R5 


;WAS THIS THE LAST SECTOR? 
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SEQ 0041 



930 


006000 


001352 








BNE 


RD5 


931 


006002 


012705 


001305 






MOV 


*S£CTBL,r5 


932 


006006 


032737 


000020 


001334 




BIT 


#BIT4,»#DSKADR 


933 


006014 


001006 








BNE 


R07 


93* 


006016 


052737 


000020 


001334 




BIS 


#BIT4,8»DSKADR 


935 


006024 


105137 


001362 






COMB 


gtPATTRN 


936 


006030 


000736 








BR 


R05 


937 


006032 


042737 


000020 


001334 


RD7; 


BIC 


#BIT4,B#DSKADR 


938 


006040 


105137 


001362 






COMB 


MPATTRN 


939 


006044 


005202 








INC 


R2 


940 


006046 


004737 


005272 






JSP 


PC.CYLOFF 


941 


006052 


000722 








BR 


R04 


942 


006054 


000670 








BR 


ROl 


943 
















944 


006056 


012600 






EXIT2: 


MOV 


(SP)+,R0 


945 


006060 


000207 








RTS 


PC 


946 
















947 










; THE ERROR CHECK ROUTINE CHECKS 


948 










;ON WRITING OR 


READING. 


949 
950 


006062 


032777 


140000 


173300 


EPRCHK 1 


BIT 


• 1 40000 » 0RKCS 


951 


006070 


000240 








NOP 




952 


006072 


001420 








BEO 


TSTSN1 


953 


006074 


012777 


000001 


173266 




MOV 


#1 ,8RKCS 


954 


006102 


004737 


005574 






JSR 


PCSMTME 


955 


006106 


012777 


177777 


173244 






#•1 » 8ERRFLG 


956 


006114 


105777 


173250 




1 s x 




(9RKCS 


957 


006120 


100375 








BPli 


1$ 


958 


006122 


105337 


001321 






DECR 


9*ECNT 


959 


006126 


001002 








BNE 


TSTSN1 


960 


006130 


000137 


006212 






JMP 


HIRESTRT 


961 


006134 


032777 


001000 


173222 


TSTSN1 : 


BIT 


*1000,»RKDS 


962 


006142 


000240 








NOP 




963 


006144 


001530 








BEO 


RETRN2 


964 


006146 


012777 


000015 


173214 




MOV 


#15,«RKCS 


965 


006154 


012777 


177777 


173176 




MOV 


#•1 » WERRFLG 


966 


006162 


004737 


005574 






JSR 


PC 1 SMTME 


967 


006166 


105777 


173176 




2S: 


TSTB 


9PKCS 


968 


006172 


100375 








BPL 


2$ 


969 


006174 


032777 


000100 


173162 




BIT 


#100,8RKDS 


970 


006202 


001771 








BEO 


2S 


971 


006204 


105337 


001322 






DECB 


MCNTSIN 


972 


006210 


001106 








BNE 


RETRN2 


973 


006212 


105737 


001321 




RESTPTI 


TSTB 


9»ECNT 


974 


006216 


000240 








NOP 




975 


006220 


001421 








BEQ 


IS 


976 


006222 


104401 


006230 






TYPE 


,65$ 


977 


006226 


000415 








BR 


64$ 


978 










S)65S: 


.ASCIZ 


<15><12>/3 'SIN 


979 


006262 








64$: 






980 


006262 


000415 








BP 


2$ 


981 


006264 








is: 






982 


006264 


104401 


006272 






type 


,67$ 


983 


006270 


000412 








BR 


66$ 


984 










;;67$: 


.ASCIZ 


<15><12>/5 ERROI 


985 


006316 








66S: 







;IF NO GO BACK 

!IF YES RESET SECTOR POINTER 

;WAS IT SURFACE "1" THAT WAS READ? 

;1F YES, BRANCH 

fNO, SET SURFACE "1" BIT 

; make head "1" pattern 

;go back and execute 

; clear the surface bit 

; make it surface data 

; increment the selected cyl table pointer 

;go form next address 

;if here it is not the last base aodr 

;if here get next word-drive finished 

•restore r0 

; return to main line code 



; HARD ERROR OR ERROR SET? 

;HALT HERE TO EXAMINE ERROR REG. , ECT • 

;IF NO, GO TEST *SlN' BIT 

;IF YES, ISSUE CNTROL RESET t GO 

; FLAG AN ERROR { PREVENT UPDATE OF ADDR) 

; CNTROL READY BIT SET (FROM CNTROL RESET) 

;IF NO WAIT. (IF HUNG HERE RUN STATIC) 

; DECREMENT ERROR COUNTER 

; HAVE ERROR BITS SET 5 TIMES? 

;IF HERE 5 ERRORS HAVE OCCURRED 

; SEEK INCOMPLETE SET? 

• »»# 

; BRANCH IF NO 

;IF YES, ISSUE DRIVE RESET, GO 

; FLAG AN ERROR (PREVENT UPDATE OF ADDR) 



j"R/W/S READY" BIT SET? 
ilF NO WAITl (IF HUNG HERE RUN STATIC) 
; DECREMENT SEEK INCOMPLETE COUNTER 
;IF 3 'SIN ' ERRORS FALL THROUGH 



; ; TYPE ASCIZ STRING 
; ) GET OVER THE ASCIZ 
ERRORS OCCURRED/ 



SSTYPE ASCIZ STRING 
; I GET OVER THE ASCIZ 
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986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
101 1 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 



006316 






2$: 






006316 


104401 


006324 


TYPE 


,69$ 


; fTYPE ASCIZ STRING 


006322 


000422 






68$ 


; ; GET OVER THE ASCIZ 








;;69S! .ASCIZ 


/ DRIVE DECLARED 


DOWNlt NOT TESTED 1/ 


006370 






68$: 






006370 


105737 


001316 


TSTB 


MCOMND 


; TEST THE COMMAND 


006374 


100006 




BPL 


3$ 


!IF WRITE, BRANCH 


006376 


062706 


000004 


ADD 


*4,SP 


jPOINT TO SAVE R0 


006402 


012600 




MOV 


(SP)+,R0 


; GET R0 BACK 


006404 


052710 


100000 


BIS 


»BIT15,(R0) 


;SET THE DOWN BIT 


006410 


000207 




RTS 


PC 


i RETURN TO MAIN CODE 


006412 


052710 


100000 


3$: BIS 


#BIT15, (R0) 


;SET THE DOWN BIT 


006416 


012706 


001 100 


MOV 


#STACK,SP 


; RESTORE THE STACK 


006422 


000137 


003304 


JMP 


OiGOl 




006426 


000207 




RETRN2 1 RTS 


PC 





JTHIS ROUTINE CHECKS A SECTORS WORTH OF DATA ON A READ OPERATION 
JIT ALLOWS 5 ERROR PRINTOUTS PEP SECTOR 



006430 


010446 






pdchk: 


MOV 


R4,-(SP) 


;SAVE R4 




006432 


010546 








MOV 


R5,-(SP) 


;SAVE R5 FOR RDLINK 




006434 


105037 


001 320 






CLRB 


0#HDRFLG 


;CLEAR THE PRINT HEADER FLAG 


006440 


000240 








NOP 




;•»• 




006442 


012737 


000005 


001350 




MOV 


#5,fl#CHKCNT 


;PUT ERROR COUNT IN CHECK 


COUNT 


006450 


012704 


007336 






MOV 


#RDBUFF.R4 


; GET THE TABLE ADDRESS TO 


R4 


006454 


013705 


001362 






MOV 


0*PATTRN,R5 


;GET THE EXPECTED DATA TO 


R5 


006460 


020524 






1$: 


CMP 


R5,(R4)+ 


; ARE THEY THE SAME 




006462 


001515 








BEQ 


3$ 


;IF YES BRANCH 




006464 


105737 


001320 






TSTB 


MHDRFLG 


;IS THE HEADER FLAG CLEAR 




006470 


001046 








BNE 


2$ 


;IF NO BRANCH 




006472 


104401 


006500 






TYPE 


,65$ 


J J TYPE ASCIZ STRING 




006476 


000420 






j >65S: 


BR 

.ASCIZ 


64$ 

<15><12>/ERR0R1 


; 1 GET OVER THE ASCIZ 
DATA WRITTEN BY DRIVE / 




006540 








64$: 










006540 


152737 


000377 


001 320 




BISB 


#377 , BlHDRFLG 


;SET THE HEADER FLAG 




006546 


113746 


001317 






MOVB 


9#WRTNBY,-(SP) 


iPICK UP THE DRIVE t THAT 


WROTE 


006552 


104403 








TYPOS 








006554 


001 








.BYTE 


1 






006555 


000 








.BYTE 









006556 


104401 


006564 






TYPE 


,67$ 


;>TYPE ASCIZ STRING 




006562 


00041 1 






; J67S: 


BR 

. ASCIZ 


66$ 

/ CANNOT BE READ 


; ; GET OVER THE ASCIZ 
./ 




006606 








66$: 










006606 








2$: 










006606 


104401 


006614 






type 


,69$ 


JjTYPE ASCIZ STRING 




006612 


000405 








BR 


68$ 


; J GET OVER THE ASCIZ 












:;69«: 


.ASCIZ 


<15><12>/ ADDR*/ 




006626 








68$l 










006626 


013746 


001334 






MOV 


»»DSKADR,-(SP) 


;PICK UP THE ADDRESS THAT 


FAILED 


006632 


104403 








TYPOS 








006634 


006 








• BYTE 


6 






006635 


001 








• BYTE 


1 






006636 


104401 


006644 






TYPE 


,71$ 


; 1 TYPE ASCIZ STRING 




006642 


000405 






l»71$1 


BR 

.ASCIZ 


70$ 

/ EXPCTO»/ 


; 1 GET OVER THE ASCIZ 




006656 








70$: 
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SEQ 0043 



10 42 


006656 


010546 






MOV 


R5,-(SP) 


•PICK UP THE EXPECTED DATA (GOOD) 


1 04 3 


006660 


1 04404 






TYPON 






1044 


006662 


104401 


006670 




TYPE 


,73$ 


■ ! TYPE ASCIZ STRING 


1045 


006666 


000405 






BR 


72S 


j GET OVER THE ASCIZ 


1 046 








? r73s: 


. ASCIZ 


/ RECVD=/ 




1047 


006702 






72S1 








1048 


006702 


016446 


177776 




MOV 


-2CR4) ,-(SP) 


•PICK UP THE RECEIVED DATA (BAD) 




006706 


1 04404 






TYPON 






1 050 


006710 


005337 


001 350 




DEC 


PiCHKCNT 


•DECREMENT THE CHECK COUNT 


1 45 1 


006714 


001403 






BEO 


4$ 


IF ZERO, BRANCH 


1052 


006 716 


022704 


010336 


3S: 


CMP 


•HANSEL, R4 


DONE ALL CHECKS? 


t 05 3 


006722 


001 256 






BNF 


1$ 


IF NO, GO BACK 


1 054 


006724 


012605 




4$: 


MOV 


(SP)+,R5 


RESTORE R5 


1 055 


006726 


01 2604 






MOV 


(SP)t,R4 


RESTORE R4 




0067 30 


000207 






RTS 


PC 


RETURN TO CALLER 


1 057 
















1 059 








;this routine 


BUILDS A TABLE OF PARAMETERS TO PASS TO THE SECOND SYSTEM 


1059 








;IT PACKS THE 


INFO FOR TWO DRIVES INTO ONE WORD 


















1 061 


0067 32 


005003 




SECONE ! 


CLP 


R3 


CLEAR THE WORD COUNTER 


1 06 2 


0067 3 4 


000240 






NOP 




### 


106) 


006736 


012702 


001256 




MOV 


#MSKTBL»R2 






006 f 4 £ 






DO i 


CLR 


" ( R2 ) 




1065 


006744 


022702 


001 246 




CMP 


#FASTBL,R2 




1^7 


006750 


001 374 






BNE 


6$ 






006752 


01 2700 


001 166 






f LOGA , R0 


GET THE ACTIVE TABLE ADDRESS 


1 068 


006756 


01 200 1 




IS! 


urw 


(R0)+,R1 


PICK UP THE WORD 


1 069 


006760 


00030 1 






SWAB 


Rl 


GET THE DRIVE # TO THE LOW BYTE 




006762 


042701 


1 77400 




BIC 


•177400, Rl 


CLEAR THE UNWANTED BITS 


1071 


00676b 


1 061 01 






FOLB 


Rl 


ROTATE THE BYTE, WAS DOWN SET? 


1072 


006770 


1 03002 






BCC 


2$ 


IF NO BRANCH 


1 fr' 7 3 


006772 


052701 


000001 




BIS 


#BIT0,R1 


SHOW THE DRIVE AS DOWN IN THE TABLE 


I 07 4 


006776 


1 05701 




2$: 


TSTB 


Rl 


IS THIS THE SYSTEM *2 DRIVE? 


1 *>75 


007000 


1 00404 






BMI 


3$ 


BRANCH IF YES 


1 *>7t> 


0O7002 


142701 


000360 




BICB 


*360,R1 


CLEAR THE UNUSED BITS 


11; 7 7 


007006 


110122 






MOVB 


Rl , CR23+ 


GET THIS I TO THE PASS TABLE 


1 078 


007010 


000762 






BR 


IS 


GET THE NEXT WORD FROM ACTIVE TABLE 


1079 


00701 2 


110112 




3$: 


MOVB 


Rl, (R2) 


GET THE LAST DRIVE TO THE PASS TABLE 


1040 


00701 4 


01 2702 


001 246 




MOV 


*PASTBL,R2 


RESTORE THE TABLE POINTER 


1061 


007020 


1 04401 


007026 




TYPE 


,65$ 


; TYPE ASCIZ STRING 


1 082 


007024 


000425 






BR 


64$ 


JGEI OVER THE ASCIZ 


108 3 








; ;65S: 


•ASCIZ 


<15><12>/LOAO AND START ADDRESS 210 ON SYSTEM #2/ 


108 4 


007 1 00 






64S: 








1 085 


007 100 


1 04401 


007106 




type 


,67$ 


! TYPE ASCIZ STRING 


1086 


007104 


000424 






BR 


66$ 


; GET OVER THE ASCIZ 


1087 








; ;67S: 


.ASCIZ 


<15><12>/AND TYPE THE BELOW WHEN ASKED FOR IT./ 


1088 


007156 






66$: 








1089 


007156 


005203 




4S: 


INC 


R3 ; INCREMENT THE WORD COUNTER 


1090 


007160 


104401 


007166 




TYPE 


,69$ 


; TYPE ASCIZ STRING 


1091 


007164 


000405 






BR 


68S 


;GFT OVER THE ASCIZ 


1092 








:;69S: 


.ASCIZ 


<15><12>/wORD / 




1093 


007200 






68$: 








1094 


007200 


010346 






MOV 


P3,-(SP) : GET THE w ORD COUNT ON THE STACK 


1095 


007202 


104403 






TYPOS 






1096 


007204 


006 






,HYTf 


6 




1 ii97 


007205 


000 






. BYTE 
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DZR< VI 
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1093 


007206 


104401 


1099 


007212 


000401 


1 100 






1 1<^^ 


00721 6 




1102 


007216 


012216 


1103 


007220 


104403 


1 1 04 


007222 


006 


11/5 


007223 


001 


1106 


007224 


032762 


11*7 


007232 


001004 


111* 


007234 


032762 


1 109 


007242 


001 745 


111/ 


007244 


005740 


1111 


007246 


000000 


1112 






1113 


1*07250 




1114 


007250 


104401 


1115 


007254 


000104 


11 1h 






1117 


007266 




11 1« 


007266 


104411 


1119 


007270 


012602 


117/1 


007272 


042702 


1121 


007276 


P12704 


11 22 


007 302 


005724 


11 73 


007304 


100776 


1124 


007306 


0104 37 


1 1 25 


007312 


01 4401 


1126 


007314 


000240 


1127 


0PI7316 


0.14737 


1128 


007322 


004737 


11 29 


A07326 


01 3700 


1 1 30 


007332 


0001 37 


1131 






1 1 52 


007336 


000400 


1133 






1134 


010336 


000240 


1 1 35 






11 36 






1137 






1 1 38 






1139 






1 140 


010340 




1 141 


010340 


1 04401 


11 42 


010344 


000401 


1143 






1 1 44 


010350 




1145 






1146 






1 147 






1 1 48 






1)49 


010350 




1150 


010350 


1044^1 


1151 


010354 


000416 


1152 






1153 


010412 
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; ; 7 1 $ : 
70$: 



100000 
000200 



177400 
0W1166 



004204 
00561 2 
001 100 
003352 



: ;65s: 
64$: 



; ;65$: 
64$: 



: 165$: 
64$: 



TYPIv 


,71$ 


; ; TYPE ASCIZ STRING 


BR 


70$ 


; : GET OVER THE ASCIZ 


.ASCIZ 


/ = / 




MOV 


(P2)+,-(SP) 


; GET THE FIRST TO THE STACK 


TYPOS 






. BYTE 


6 




.BYTE 


1 




BIT 


#BIT15,-2CP2) 


;WAS THIS THE TABLE TERMINATOR 


BNE 


5$ 


; BRANCH IF YES 


BIT 


»BIT7,-2(R2) 


; TERMINATOR? 


BEO 


4$ 


;IF NO BRANCH 


TST 


"(R0) 




HALT 






TYPE 


,65$ 


; 1 TYPE ASCIZ STRING 


BR 


64$ 


; ; GET OVER THE ASCIZ 


.5SCTZ 


<15><12>/W0RD=/ 




RDOCT 






MOV 


(SP)+,R2 


; GET THE WORD FROM SYSTEM 2 TO TABLE 


BIC 


#177403, R2 




MOV 


*L0GA,R4 


;SET POINTER LOOK FOR FIRST "UP" DRIVE 


TST 


(R4) + 


;DPIVE IIP? 


BMI 


IS 


:IF NO BRANCH 


MOV 


R4, BISPASS 




MOV 


-CR4),R1 




NOP 




; *•* 


JSP 


PCLDFLG 


;CALL D02+ 


JSR 


PCRDLINK 


; C ALL READ CHECK 


MOV 


a#SPASS,R0 




JMP 


B«EXTFR2 


;G0 TO END OF TEST 


. BLKW 


400 




NOP 




! TABLE TERMINATOR 


TYPE 


,65$ 


1 1 TYPE ASCIZ STRING 


BP 


64$ 


;:get over the asciz 


■ ASCIZ 


/?/ 





, SBTTL OSCILLATING SEEK ROUTINE 



TYPE 
BR 



,65$ 

64$ 



;1TYPE ASCIZ STRING 
* 1 GET OVER THE ASCIZ 



.ASCIZ <15><12>/0SCILLATING SEEK PACKAGE/ 
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SEQ 0045 



I 154 


















1 155 


010412 


012700 


020470 






MOV 


»DRIV0,R0 


;FIND OUT WHICH DRIVES ARE 


1156 


010416 


005001 








CLR 


Rl 


;PPESENT AND PUT THE 


1 157 


010420 


010177 


1 70752 




1 $ : 


MOV 


Rl , »RKDA 


(DRIVE #*S IN A TABLE STARTING 


1 158 


010424 


105777 


170734 






TSTB 


PRKDS 


; AT 'DPI V0 ' . BITS 15-13 CONTAINS 


1159 


010430 


1 00001 








BPL 


2$ 


; THE DRIVE *. 


1 160 


010432 


010120 








MOV 


Rl, (R0)+ 




1161 


010434 


062701 


020000 




2SI 


ADD 


#20000, Rl 




1 162 


010440 


001 367 








BNE 


1$ 




1 163 


010442 


012710 


177777 






MOV 


1-1, CR0) 


JSET THE TERMINATOR TO THE TABLE 


1 164 
1 165 


010446 


013702 


001376 




INIT.2: 


MOV 


RKDA,R2 




1 166 


010452 


012777 


000001 


170710 




MOV 


#1,BRKCS 


; ISSUE CONTROL RESET + GO 1 


1167 


010460 


004737 


005574 






JSR 


PC, SMTME 




1168 


010464 


105777 


170700 




IS: 


TSTB 


PRKCS 


JDID CONTROL READY SET? 


1 169 


010470 


100375 








BPL 


1$ 


SlF NO WAIT1 CIF HUNG RUN STATIC) 


1 170 


010472 


012700 


020470 






MOV 


#DRIV0,R0 




1171 


010476 


012077 


170674 




3SI 


MOV 


(R0)+,0RKDA 




1172 


010502 


012777 


000015 


170660 




MOV 


»15,0RKCS 


; ISSUE DRIVE RESET + GO! 


1173 


010510 


004737 


005574 






JSR 


PC « SMTME 




1 174 


010514 


105777 


170650 




2$l 


TSTB 


PRKCS 




1 175 


010520 


100375 








BPL 


2$ 




1 176 


010522 


022710 


177777 






CMP 


«-l,(R0) 




1177 


010526 


001363 








BNE 


3$ 




1 178 


010530 


104401 


010536 






TYPE 


.65$ 


5 (TYPE ASCIZ STRING 


1179 


010534 


000432 








BR 


64$ 


; (GET OVER THE ASCIZ 


1 180 










; ;65S: 


.ASCIZ 


<15><12>/SET SWa TO SW7 TO SELECT DRIVES FOR TEST AND CONT/ 


1181 


010622 








64$: 








1182 


010622 


104401 


010630 






TYPE 


,67$ 


: (Type asciz string 


1183 


010626 


000426 








BR 


66$ 


; t GET OVER THE ASCIZ 


1184 










: (67$: 


.ASCIZ 


<15><12>/RESET 


SW0 TO SW7 TO TEST ALL AVAIL DRIVES/ 


1 1 85 


010704 








66$: 








1 18b 


010704 


022737 


000176 


001140 


7$: 


CMP 


»SKREG»SWR 


(SOFTWARE SWITCH REGISTER IN USE ? 


1187 


010712 


001003 








BNE 


8$ 


; BR IF NOT 


1 188 


01071 4 


104405 








GTSWP 




( REQUEST NEW CONTENTS FOR SWITCH REG 


1 189 


010716 


000400 








BR 


9$ 


(CONTINUE 


119*1 


010720 


000000 






9$: 


HALT 




; WAIT FOR OPERATOR TO ENTER NEW SWR VALUE 


1191 


010722 


1 17704 


170212 




8$: 


MOVB 


»SWR« R4 


;SW0 TO SW7 TO R4 


1192 


010726 


001 41 3 








BEO 


4$ 


; NONE SET, SO TEST ALL 


1 193 


010730 


012700 


020470 






MOV 


»DRIV0,R0 


; TABLE TO STORE DRIVE ADDRS 


1194 


010734 


005001 








CLR 


Rl 


; ADDR OF DRIVE 


1 1 95 


01073b 


006004 






6$: 


ROP 


R4 


; NEXT SWITCH TO CARRY 


1 1 96 


010740 


103001 








BCC 


5$ 


SSWITCH NOT SET 


1 1 97 


010742 


010120 








MOV 


Rl, (R0) + 


(SWITCH SET, SO MOVE ADDR TO TABLE 


1 198 


010744 


062701 


020000 




5$! 


ADD 


#20000. Rl 


; ADDR OF NEXT DRIVE 


1 199 


010750 


001372 








BNE 


6$ 


; ALL DONE WHEN ZERO 


1 200 


010752 


01 2720 


177777 






MOV 


#-1 , (R0) + 


; TABLE TERMINATOR 


1201 


010756 


105737 


001326 




4$: 


TSTB 


OSPFLG 


; TYPED ONCE? 


1 202 


010762 


001 1 65 








BNE 


RWSRDY 


;IF YES, DONT RETYPE 


1203 


010764 


104401 


010772 






TYPE 


,69$ 


[(TYPE ASCIZ STRING 


12*4 


010770 


000432 








BR 


68$ 


J J GET OVER THE ASCIZ 


1205 










j»69$: 


.ASCIZ 


<15><12>/T0GGLE 


THE "FIRST CYLINDER ADDRESS" (OUTER LIMIT) / 


I 206 


011056 








686: 








1207 


01 1056 


104401 


011064 






type 


,71$ 


;;Type asciz string 


1 208 


011062 


000441 








BR 


70S 


; ; GET OVER THE ASCIZ 


1 2p9 










; (71$: 


. ASCIZ 


<15><12>/INT0 THE LOW BYTE (BIT0-7) OF THE SWITCH REGISTER 
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1210 


Ml 1 16b 








70$: 








1211 


01 1 166 


104401 


H11174 






TYPE 


,73$ 


([TYPE ASCIZ STRING 


1212 


011172 


000430 








BR 


72$ 


( J GET OVER THE ASCIZ 


1213 










; l 73$: 


, ASCIZ 


<15><12>/CYllNDER ADDRESS" (INNER LIMIT) INTO THE HIGH/ 


121 4 


011254 








72$: 








1215 


011254 


104401 


01 1 262 






TYPF 


,75$ 


[JTYPE ASCIZ STRING 


1216 


011260 


000424 








BR 


74$ 


1 1 GET OVER THE ASCIZ 


1217 










?i75$: 


.ASCIZ 


<15><12>/ 


BYTE (BIT8-15), THEN PRESS CONTINUE . / 


1218 


011332 








74$: 








1219 


01 1 332 


105237 


001326 






INCB 


OSPFLG 




1220 


011336 


032777 


000100 


170020 


RWSRDY 1 


BIT 


#100.«RKDS 


J "READ/WPITE/SEEK READY" BIT SET? 


1221 


011344 


001774 








BEU 


RWSRDY 


[IF NO WAIT 1 (IF HUNG RUN STATIC) 


1222 


011346 


022737 


000176 


001 140 


TPYAGNJ 


CMP 


*SWREG,SNP 


; SOFTWARE SWITCH REGISTER IN USE ? 


1223 


011354 


001002 








BNE 


IS 


[ BR IF NOT 


1224 


01 1 356 


104405 








GTSwR 




; GET NEW CONTENTS 


1225 


011360 


000401 








BR 


CONTIN 


[CONTINUE 


1226 


011 362 


000000 






1$: 


HALT 






1227 


01 1 364 


012777 


000001 


167776 


contin: 


MOV 


#1,«RKCS 


[CONTROL RESET 


1228 


01 1 372 


105777 


167772 






TSTB 


9RKCS 




1229 


011376 


100375 








BPL 


.-4 




1230 


01 1400 


013705 


001 140 






MOV 


SWR,R5 


; GET THE ADDRESS OF THE SWITCH REG. TO R5 


1231 


011404 


1 12501 






1$: 


MOVB 


(R5)+,R1 


J GET A BYTE TO Rl 


1232 


011406 


042701 


177400 






B1C 


#177400, Rl 


;CLEAR THE UNUSED BITS 


1233 


011412 


022701 


000312 






CMP 


#312, Rl 


;IS ADDRESS LEGAL? 


1234 


011416 


100034 








BPL 


2$ 


; BRANCH IF YES 


1235 


011420 


104401 


011426 






TYPE 


,65$ 


[[TYPE ASCIZ STRING 


1236 


01 1 424 


000430 








BR 


64$ 


; > GET OVER THE ASCIZ 


1237 










; ;65$: 


. ASCIZ 


<15><12>/INVALID 


ADDRESS IN SWITCH REGISTER TRY AGAIN/ 


1238 


011506 








646: 








1239 


011506 


000717 








BR 


TRYAGN 


[GO BACK FOR NEW PARAMETERS 


1240 


01 1510 


006101 






2$: 


ROL 


Rl 


> ROTATING THIS REGISTER 


1241 


011512 


006101 








ROL 


Rl 


; MAKES THE BYTE FROM THE 


1242 


01 1514 


006101 








POL 


Rl 


;SWITCH REGISTER LINE UP 


124 3 


011516 


006101 








ROL 


PI 


;WITH THE CYLINDER BITS OF 


1244 


011520 


006101 








ROL 


Rl 


[ THE RKDA REGISTER, 


1245 


011522 


042701 


160037 






BIC 


#160037, Rl 


;CLEAR THE UNUSED BITS 


1246 


011526 


032705 


000001 






BIT 


#1,R5 


;IS THIS THE LOW BYTE? 


1247 


011532 


001003 








BNE 


3$ 


; BRANCH IF YES 


1248 


011534 


010137 


001402 






MOV 


Rl ,8#SEEKI 


[STORE THE INNER LIMIT OF THE SEEK 


1249 


011540 


000403 








BR 


SEKSET 


; START SEEKS 


1250 


011542 


010137 


001404 




36: 


MOV 


R1,0»SEEKO 


(STORE THE OUTER LIMIT OF THE SEEK 


1251 


011546 


000716 








BP 


1$ 


(GO BACK AND GET HIGH BYTE. 


1252 


















1253 


011550 


012703 


000050 




SEKSETI 


MOV 


#50, R3 


[ GET THE NUMBER OF SEEK CYCLES TO R3 


1254 


011554 


013704 


001404 






MOV 


a#SEEK0,P4 


(ADD THE OUTER LIMIT CYLINDER ADDRESS 


1255 


011560 


013705 


001402 






MOV 


9#SEEKl,R5 


[ ADD THE INNER limit CYLINDER ADDRESS 


1256 


















1257 


011564 


012700 


020470 




LDSEEKI 


MOV 


#DRIV0,R0 


[ INITIALIZE POINTER 


1258 


011570 


010477 


167602 




5$: 


MOV 


R4 , SRFDA 


; GET INNER LIMIT CYL ADRES 


125 9 


011574 


052077 


167576 






BIS 


(R0)+,?RKDA 


;SET DRIVE ADRES 


1260 


01 1600 


012777 


00001 1 


167562 




MOV 


*11,8RKCS 


(ISSUE SEEK+GOl (rOR INNER LIMIT) 


1261 


011606 


004737 


005574 






JSR 


PC, SMTME 




1262 


01 1612 


105777 


167552 




3$: 


TSTB 


»RKCS 




1263 


011616 


100375 








BPL 


36 




1264 


















1265 


011620 


022710 


177777 






CMp 


».l, (R0) 


( ALL DRIVES DONE? 
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SEQ 0047 



1266 


011624 


001361 








BNE 


5$ 


;no 


1267 


R11626 


012700 


020470 






MOV 


&DRIV0, R3 




126* 


01 1632 


012077 


167540 




6S: 


MOV 


(P0)+,»RKDA 


: ADRES THE DRIVE 


1269 


01 1636 


032777 


000100 


167520 


7$: 


BIT 


IRWS, PRKDS 


; SEEK DONE? 


1270 


01 lb44 


001774 








BFQ 


7$ 


;N0, WAIT 


1 271 


01 1646 


022710 


177777 






CMP 


S-l , CR0) 


;6LL DRIVES DONE? 


1272 


01 1652 


001 367 








BNE 


6$ 


; NO 


1 27? 


















1 274 


011 654 


01 2700 


020470 






MOV 


*DR1V0, R0 




1 275 


01 1 660 


01 0577 


16751 2 




8s : 


MOV 


R5,BRKDA 


;SET OUTER CYL ADRES 


1276 


01 1664 


052077 


167506 






BIS 


(R0)+, 0PKDA 


;SET DRIVE ADRES 


1 277 


01 1 670 


012777 


00001 1 


167472 




MOV 


#11,»RKCS 


JISSUE SEEKtGO! (FOR OUTER LIMIT) 


1 278 


011676 


004737 


005574 






JSR 


PCSMTME 




1279 


01 1 702 


105777 


167462 




9S : 


TSTB 


ORKCS 




1 280 


01 1 706 


100375 








BPL 


9$ 




1 291 


















1 282 


01 1710 


022710 


1 77777 






CMP 


»-l» CP0) 


;all DONE? 


1293 


011714 


001 361 








BNE' 


8$ 


: no 


12S4 


















1 295 


011716 


012700 


020470 






MOV 


*DRIV0,R0 




1296 


<M 1 722 


n] 2077 


167450 




1 0S : 


MOV 


( R0) + , SRKDA 


;SET DRIVE ADRES 


1 297 


01 1 726 


032777 


0001 00 


167430 


lis: 


BIT 


#RWS,GRKDS 


S SEEK DONE? 


1288 


01 1 734 


001 774 








BFQ 


HS 




1289 


011736 


022710 


177777 






C«P 


»-l, (P0) 


;ALL DONE? 


1290 


01 1742 


001 367 








BNE 


10S 




1291 


01 1 744 


005303 








DEC 


R3 


: DONE 50 SEEK. CYCLES (100 SEEKS) 


1292 


01 1 746 


001 306 








BNE 


LDSEEK 


:IF NO BRANCH (KEEP CYCLING) 


1293 


011750 


000605 








BR 


CONTIN 


;CHECK SWP FOR CHANGE AND CONTINUE 


1294 


















1 295 


















1296 


















1297 


















1298 


















1 299 












. SBTTL 


FORMATTER-SURFACE VERIFIER 


1 300 


















1 Jul 


01 1 752 








BAD. IN: 








1 302 


011 752 


1 04401 


01 1 760 






TYPP 


,65S 


;!TYPE ASCIZ STRING 


1 103 


011 756 


000401 








BP 


64S 


;;get over the aSciz 


1 304 










; :65s: 


.4SCIi! 


/?/ 




1 305 


011 762 








64$: 








I 306 


011762 








SECT.l: 








1 307 


011762 


104401 


0U770 






TYPE 


.65$ 


;:TYPE ASCIZ STRING 


1 308 


01 1766 


000441 








BR 


64S 


; ; GET OVER THE ASCIZ 


1 309 










; ;65S: 


.ASCIZ 


<15><12>/F0RMATTER-SURFACE VERIFIER, SET SW REG FOR 


1310 


01 2072 








64S: 








1 311 


012072 


022737 


000176 


001140 




CMP 


*S*REG»SWP 


JSOFTWARE SWITCH REGISTER IN USE ? 


1312 


01 2100 


001 00 2 








BnF 


IS 


; BR IF NOT 


1313 


012102 


1 04405 








GTSWR 




; GET SWITCH REGISTER VALUE 


1314 


012104 


000401 








BR 


2S 


;CONTINUE 


1315 


01 2106 


000000 






is: 


HALT 




;WAIT FOR 'CONTINUE' 


1316 


012110 


31 2737 


000001 


020320 


2S: 


MOV 


»1,SHFCHT 


;SFT SHIFT COUNT 


1 317 


012116 


005037 


020J22 






CLR 


DRVCNT 


;CLFAR DRIVE COUNT 


1318 


01 21 22 


033777 


020320 


167010 


S13: 


BIT 


SHFCNT, »S*R 


;IS THIS SW SET? 


1319 


012130 


001 01 1 








BNE 


S1 


;YES FORMAT THIS DRIVE 


13 2^ 


012132 


0k>6337 


020320 




SI 1 ! 


ASL 


S HFC NT 




1 321 


012136 


005237 


020322 






IMC 


DRVCNT 





PRESS CONT./ 
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1 322 


012142 


022737 


000010 


020322 




CMP 


•10, DRVCNT 


fALL DONE? 


1 323 


012150 


001 556 








BEO 


GDI 




1 324 


012152 


0007 6 3 








BR 


SI 3 




1 325 


012154 


01 3700 


02O322 




si«: 


MOV 


DRVCNT, R0 




1 326 


012160 


104401 


0'M 161 






TYPE 


,SCRLF 




1327 


012164 


1 04401 


020324 






TYPE 


, F.M1 


; TYPE 'DRIVE' 


1 328 


012170 


010046 








MOV 


R0,-(SP) 


; TYPE DRIVE * 


1 329 


012172 


104402 








TYPOC 






1 33* 


012174 


000300 








S«IAB 


R0 




1 311 


01 2176 


006 1 00 








POL 


R0 




1 332 


01 2200 


006100 








ROL 


R0 




I 333 


012202 


0061 00 








POL 


R0 




1334 


012204 


006100 








ROL 


P0 




1 335 


012206 


006100 








POL 


R0 




1 336 


012210 


010037 


001 352 






MOV 


R0,9«DSKTM.P 




1 337 


012214 


012737 


00000H 


001 422 




MOV 


#0,ERR*F 




1 338 


012222 


012737 


000001) 


001424 




MOV 


#0 , FRRRF 


;CLEAR OUT ERROR COUNTS. 


1 339 


01223»» 


012737 


00000H 


001426 




MOV 


•0, ERRRFC 




1 340 


012236 


012737 


000000 


0014 30 




MOV 


•0,ERPWCH 




1 341 


012244 


012737 


000000 


001432 




MOV 


*0,F.RP*iCS 




1 342 


01 2252 


012737 


177750 


001 41 6 


S12: 


MOV 


#-24.,RWC 


;SET WORD COUNT FOP READ FORMAT. 


1 343 


012260 


012737 


1 64000 


001 412 




MOV 


*-6144.,WC 


;SET UP WORD COUNT FOR WRITES. 


1 34 1 


012266 


01 2737 


000000 


001420 




MOV 


#0,EXTR 


;CLEAR EXTRA BIT FOR 12 SECTOR PACK 


1345 


012274 


01 2701 


177772 




common : 


MOV 


*-6.,Rl 


;SET UP LOOP COUNT FOR THE CLEANER. 


1 346 


Ml 2 300 


01 2777 


01 450t) 


3 67070 


COM: 


MOV 


S14500,9RXDA 


;SET UP FOR A SEEK TO 202. 


1347 


01 2306 


053777 


001 352 


167062 




BIS 


9«DSKTMP,(SRKDA 




1 348 


012314 


105777 


167050 




is: 


TSTB 


BRKCS 


;IS THE CONTROLER READY? 


1 3J9 


01 2320 


1O0375 








BPL 


IS 


;N0 SO WAIT. 


1 350 


H12322 


012777 


00001 1 


167040 




MOV 


«ll,aRKCS 


;D0 THE SEEK. 


1 351 


0123 30 


032777 


000100 


167026 


2s: 


BIT 


•BIT6, 9RKDS 


US THE SEEK DONE? 


1 352 


01 2 3 36 


H01 774 








BEG 


2$ 


;N0 SO WAIT. 


1 353 


01 2340 


105777 


167024 




3$: 


TSTB 


8RKCS 


;IS CONTROLER READY? 


1 354 


012344 


1 00375 








BPL 


3$ 


;N0 


1 355 


012346 


012777 


«■ 000 15 


167014 




MOV 


*15,9RKCS 


;D0 A DRIVE RESET. 


1 356 


012354 


032777 


000100 


167002 


4s: 


BIT 


•BTT6, SRKDS 


;IS DRIVE RESET DONE. 


1 357 


012362 


001 774 








BEQ 


4$ 


;N0 


1 358 


012364 


005201 








INC 


PI 


;COUNT THE CLEANER LOOP. 


1 359 


012366 


001 344 








BNE 


COM 


;MOPE TO GO. 


1 360 


012370 


012737 


000000 


001410 




MOV 


#0,DA 


! START OUT AT CYL. 0. 


1 361 


012376 


012777 


177777 


167002 


NEXT: 


MOV 


•177777, 8RA 


;PUT ALL ONE'S IN BUFFER. 


1 362 


01 2404 


0041 37 


01 251 2 






JSR 


Rl.IO 


;G0 DO THE DISK THING. 


1 363 


012410 


P12777 


000000 


166770 




MOV 


«0,»SA 


;PUT ALL ZERO'S IN BUFFER. 


1 364 


012416 


0041 37 


012512 






JSP 


Rt,IO 


;G0 DO IT AGIAN. 


1 365 


012422 


012777 


125252 


166756 




MOV 


»125252,BBA 


;PUT A ALT. PATTERN IN BUFFER. 


1 366 


01 2430 


0041 37 


012512 






JSP 


Rl , 10 


;ONCE MORE. 


1 367 


"12434 


0451 77 


166746 






COM 


BBA 


COMPLEMENT THE LAST PATTERN, 


1 368 


012440 


0041 37 


012512 






JSR 


R1,I0 


;AND AGAIN. 


1 369 


012444 


062737 


000040 


001410 




ADD 


*40,DA 


; INCREMENT TO THE NEXT CYL. 


1 370 


01 2452 


022737 


014540 


001410 




CMP 


114540, OA 


; ARE WE DONE WITH THIS ONE? 


1 371 


01 2460 


0013 46 








BNE 


NEXT 


SNO SO DO THE NEXT CYL. 


1 372 


01 2462 








GOOTS 








1 37 3 


01 2462 


104401 


012470 






TYPE 


,65S 


;;TYPE ASCIZ STRING 


1 374 


012466 


000406 








BR 


64$ 


; J GET OVER THE ASCIZ 


1 375 










; ;65S: 


.ASCIZ 


<CRXLF>/PACK 


GOOD/ 


1 376 


012504 








64$: 








1 377 


012504 


000612 








BR 


SI 1 
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SEQ 0049 



1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1 390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
14«5 
1406 
1407 
1408 
1409 
14m 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1 426 
1427 
1 428 
1 429 
143» 
1431 
1432 
1433 



012506 000137 001440 



DISK I/O SUBROUTINE. 











•SET UP 


FOP A 


WRITE/FORMAT, 


012512 


013777 


001 41 2 


166652 


10 1 


MOV 


WC , aPKWC 


012520 


013777 


001410 


166650 




MOV 


DA.0RKDA 


012526 


053777 


001352 


166642 




BIS 


8IDSKTMP, 8RKDA 


012534 


013777 


001406 


166632 




MOV 


BA, PRKBA 


012542 


012777 


000000 


166620 




MOV 


#0,0RKCS 


VJ I £. 3 D W 


052777 


006000 


166612 




BIS 


#BIT10+BIT11,8R 


01 2556 


052777 


000002 


166604 




BIS 


#BIT1 , 8RKCS 


1 2564 


053777 


001 420 


166576 




BIS 


EXTR r 9RKCS 


01 2572 


052777 


00000 1 


166570 




BIS 


#BIT3, 8RKCS 


1 2600 


1 05777 


1 66564 




1 S 1 


TSTB 


8RKCS 


01 2604 


100375 








BPL 


1 1 


01 2606 


005777 


1 66556 






TST 


8RKCS 


1261 2 


100541 








BM1 


WFERR 


01 26 1 4 


012737 


000000 


001422 




MOV 


*0» ERRWF 










fSET UP 


FOR A 


REAO/FORMAT 


01 2622 


013777 


001416 


166542 




MOV 


RWC, 8RKWC 


012630 


013777 


001410 


166540 




MOV 


DA,»RKDA 


012636 


053777 


001352 


166532 




BIS 


9»DSKTMP,9RKDA 


012644 


013777 


001414 


166522 




MOV 


RBA.9RKBA 


012652 


012777 


000000 


166510 




MOV 


*0,8RKCS 


1 2660 


052777 


002000 


1 66502 




BIS 


•BIT10, 9RKCS 


01 2666 


052777 


000004 


166474 




BIS 


#BIT2»8RKCS 


01 2674 


053777 


00 1 420 


1 66466 




BIS 


EXTR, 8RKCS 


012702 


052777 


00000 1 


166460 




BIS 


tBIT0» 8RKCS 


012710 


105777 


1 66454 




2S : 


TSTB 


9PKCS 


012714 


100375 








BPL 


2$ 


012716 


032777 


040000 


166444 




BIT 


*BIT14»8PKCS 


012724 


001 1 34 








BNE 


PFERR 


012726 


012737 


000000 


001424 




MOV 


*0>ERRRF 










JSET UP 


FOR A 


WRITE CHECK. 


012734 


013777 


001412 


166430 




MOV 


WC9RKWC 


012742 


013777 


0014lld 


166426 




MOV 


DA,8PK0A 


012750 


053777 


001 352 


166420 




BIS 


8*DSKTMP,f>RKDA 


012756 


013777 


001406 


166410 




MOV 


8A» 9RKBA 


012764 


012777 


000000 


166376 




MOV 


#0,9RKCS 


012772 


052777 


004400 


166370 




BIS 


#BITlt+BIT8,»RK 


013000 


053777 


001420 


166362 




BIS 


EXTR.9RKCS 


013006 


052777 


000006 


166354 




BIS 


tBITl+BIT2,«RKC 


013014 


052777 


000001 


166346 




BIS 


•BIT0, 9RKCS 



JSET UP THE WORD COUNT REG. 
(SET UP THE DISK ADDRESS. 
;SET THE UNIT NUMBER UP. 
;SET UP THE BUSS ADDRESS, 
; CLEAR THE CONTROL REG, FOR SET UP. 
CCS ; SET FOPMAT&INHIBT INC. BITS. 
;SET UP WRITE FUN. 
; SET UP 120R16 SECTOR PACK. 
;G0 DO THE WRITE FORMAT. 
;IS WRITE FORMAT DONE? 
;N0 SO WAIT. 
;WAS THERE A ERROR? 
;YES GO SERVICE IT. 
;CLEAR OUT THE ERROR COUNTER, 



SET UP WORD COUNT REG. 

SET UP DISK ADDRESS. 

SET THE UNIT NUMBER . 

SET UP THE BUSS ADDRESS. 

CLEAR THE CONTROL REG. 

SET THE FORMAT BIT. 

SET UP READ FUN. 

SET UP 12 OR 16 SECTOR PACK, 

GO DO THE READ FORMAT, 

IS THE READ FORMAT DONE? 

NO SO WAIT. 

WAS TRERE A ERROR? 

YES GO SERVICE IT. 

CLEAR OUT THE ERROR COUNT. 



" set up word count reg. 
jset up disk address, 
;set up the unit number 
;set up buss address, 
; clear the control reg. 

is jset inhibit incr.sstop on soft error bits. 
;set 12 or 16 sector pack. 



JGO DO THE WRITE CHECK. 
I 

JCHECK HEADERS READ BY THE READ/FORMAT. 



013022 
013026 
013030 



013703 
005403 
063703 



001416 
001414 



MOV 
NEG 
ADD 



RWCf R3 

R3 

RRA.R3 



;PUT NUMBER OF WORDS TO 
JCHECK IN REG 3. 

;SET PEG 3 TO THE LAST WORD TO BE CHECKED. 
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1434 


013034 


013702 


001414 






MOV 


RBA.R2 


;SET REG 2 TO STARTING ADD. OF BUFF. 


1 435 


01 3040 


023722 


001410 




MOREl 


CMP 


DA, (2)+ 


.•CHECK THAT HEADER IS RIGHT. 


1416 


01 3044 


001073 








BNE 


RFCERR 


;THIS HEADER WAS WRONG GO SERVICE IT 


1 437 


013046 


020302 








CMP 


R3,R2 


; ARE WE DONE? 


1418 


013050 


001 373 








BNE 


MORE 


;N0 GO CHECK THE NEXT ONE. 


1439 
1440 
1441 
1 442 
1443 


013052 


012737 


000000 


001426 




MOV 


•0, ERRRFC 


;CLEAR OUT THE ERROR COUNT. 










f LFTS CHECK ON 


THE WRITE CHECK 


WE STARTED. 


013060 


105777 


166304 




!*: 


TSTB 


»RKCS 




1444 


01 3064 


100375 








BPL 


1$ 


; THE CONTROLER IS STILL BUSY. 


1445 


013066 


005777 


166276 






TST 


9RKCS 


;WAS THERE A ERROR? 


1446 


013072 


100407 








B M I 


WCERRR 


;YES GO SERVICE IT. 


1447 


013074 


012737 


000000 


001430 




MOV 


10, ERRWCH 


{CLEAR OUT THE 


1448 


011102 


012737 


000000 


001 432 




MOV 


*0,ERRHCS 


; ERROR COUNTERS, 


1449 


013110 


000201 








RTS 


Rl 


; RETURN TO THE MAIN LINE. 


1450 


013112 


000137 


013576 




wcerrr: 


JMP 


WCERR 




1451 


















1452 










; ERRORS 


FOR WRITE FORMAT . 




1453 


















1454 


013116 


005237 


001422 




wferrx 


INC 


ERRWF 


1 ADD ONE TO THE ERROR COUNT. 


1455 


013122 


022737 


000004 


001422 




CMP 


#4, ERRWF 


;HAS IT HAPPEND 4 TIMES ON THIS CYL. 


1456 


013130 


001016 








BNE 


RETRY 


;N0. 


1457 


013132 








SYSER: 








1458 


013132 


104401 


013140 






TYPE 


,65$ 


JlTYPE ASCIZ STRING 


1459 


013136 


000410 








BR 


64$ 


MGET OVER THE ASCIZ 


1460 










; j65S: 


.ASCIZ 


<15><12>/SYSTEM 


ERROR/ 


1461 


013160 








64$: 








1462 


013160 


000000 








HALT 




;LET THE TECH. BREATH. 


1463 


013162 


000137 


001 440 






JMP 


START 


; RESTART THE TEST, 


1464 


013166 


012777 


000000 


166174 


RETRY! 


MOV 


*0,BRKCS 


; CLEAR OUT THE CONTROL REG. 


1465 


013174 


012777 


000015 


166166 




MOV 


#15,8RKCS 


(DO A DRIVE RESET. 


1466 


013202 


032777 


000100 


166154 


1$: 


BIT 


*BIT6,8RKDS 


(IS IT DONE. 


1467 


013210 


001774 








BEQ 


1$ 


;N0 SO WAIT. 


1468 


013212 


000137 


012512 






JMP 


in 


; TRY AGAIN. 


1469 










J 








1470 
1471 
1472 










! ERRORS 


FOR READ/FORMAT. 




013216 


005237 


001424 




; 

rfepr: 


INC 


ERRRF 


SADDONE TO ERROR COUNT. 


1473 


013222 


022737 


000004 


001424 




CMP 


»4,EPBt»F 


;has it happend 4 times on this cyl? 


1474 


013230 


001356 








BNE 


RETRY 


;N0 do it again. 


1475 
1476 
1477 
1478 
1479 


013232 


000737 








BR 


SYSER 


J YES SO TELL HIM SO. 










• 

;PEAD/F0RM»T ERRORS FOUND BY SOFTWARE CHECKS. 


013234 


005237 


001426 




i 

rfcerr: 


INC 


ERRRFC 


(ADD ONE TO ERROR COUNT. 


1480 


013240 


105777 


166124 




hi 


TSTB 


8PKCS 


JWAIT FOR THE WRITE CHECK. 


1481 


013244 


100375 








BPL 


1$ 




1482 


013246 


022737 


000004 


001426 




CMP 


• 4 , ERRRFC 


JIS IT 4? 


1483 


013254 


001401 








BEQ 


FAILED 


JPUT OUT FAILED MESSAGE. 


1 484 


0) 3256 


000743 








BR 


RETRY 


;N0 SO GO TRY IT AGAIN. 


1485 


013260 


042777 


000037 


166110 


FAILED! 


BIC 


»37,9RKDA 


; PUT WHICH SECTORS HEADER 


I486 


013266 


042702 


177740 






BIC 


#177740, R2 




1487 


013272 


060277 


166100 






ADD 


R2, 8RKDA 


; FAILED IN RKDA FOR THE MESSAGE. 


1488 


013276 








FAIL: 








1489 


013276 


104401 


013304 






TYPE 


,65$ 


! ( TYPE ASCIZ STRING 
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SEQ 0051 



1490 


01 3302 


000417 








BP 


64$ 


; 1 GET OVER THE ASCIZ 


1491 










; ;65S: 


.ASCIZ 


<J5X12>/PACK 


FAILED AT (IN OCTAL) / 


1 *92 


P13342 








64$ : 








1 493 


013 342 


01 7701 


1 66030 






MOV 


9RKDA, R ! 


r GENERAT THE CYL, SECTOR, SURFACE 


149 4 


01334b 


010102 








MOV 


R1,R2 : MESSAGE FROM RKDA 


1 495 


01 3350 


042702 


1 77770 






BIC 


•177770, R2 




1 196 


013354 


062702 


000260 






ADD 


*260rP2 




1 497 


01 3360 


1 1 0237 


01 3537 






MOVB 


R2.SEC+1 




1 498 


013364 


004337 


01 3564 






JSR 


R3»SHF3 




1 499 


013370 


042702 


1 77776 






BIC 


#177776? R2 




1500 


013374 


062702 


000260 






ADD 


•260/R2 




1501 


013400 


1 1 02 37 


01 3536 






MOVB 


R2,SEC 




1502 


01 3404 


004337 


013570 






JSR 


R3,SHF1 




1503 


013410 


042702 


1 77776 






BIC 


1177776, R2 




1504 


01 3414 


062702 


000260 






ADD 


#260, R2 




1505 


01 3420 


1 10237 


01 3550 






MOVB 


R2,SUR 




1506 


013424 


004337 


01 3570 






JSR 


R3,SHF1 




15?7 


01 3430 


042702 


1 77770 






BIC 


#177770, R2 




1508 


013434 


062702 


000260 






ADD 


#260»R2 




1509 


013440 


110237 


01 3526 






MOVB 


R2,CYL+2 




1510 


01 3444 


004337 


01 3564 






JSR 


R3,SHF3 




151 1 


01 3450 


042702 


1 77770 






BIC 


•177770, P2 




1512 


013454 


062702 


000260 






ADD 


*260, R2 




1513 


01 3460 


1 1 0237 


01 3525 






MOVB 


R2,CYL+1 




1514 


01 3464 


004337 


013564 






JSR 


R3,SHF3 




1515 


013470 


042702 


177774 






BIC 


1177774, R2 




J516 


013474 


062702 


000260 






ADD 


•260, R2 




1517 


01 3500 


1 10237 


01 3574 






MOVB 


R2,CYL 




1518 


01 3504 


104431 


013514 






TYPE 


, 1$ 


;TYPE OUT THE GENERATED MESSAGE 


151 9 


013510 


0001 37 


01 3556 






J MP 


STOP 


JBYPASS THE INLINE MESSAGE 


1 520 


01 3514 


005015 


054503 


0271 1 4 


is: 


.ASCII 


<15><12>/CYL. 


/ 


1521 


013522 


020040 














1 522 


01 3524 


030060 


020060 




CYL: 


.ASCII 


/000 / 




1523 


013530 


04252 3 


027 103 


020040 




.ASCII 


/SEC. / 




1 524 


01 3536 


030060 


040 




sec s 


.ASCII 


/00 / 




1525 


01 3541 


123 


051 125 


0271 06 




.ASCII 


/SUPF, / 




1526 


013546 


020040 














1527 


01 3550 


020060 


005015 


000 


sur: 


.ASCIZ 


/0 /<15><12> 




1 528 




01 3556 








• EVEN 






1529 


013556 


000000 






stop: 


HALT 




;LF.T OPER DO HIS THING. 


1530 


01 3560 


3001 37 


001440 






JMP 


START 


J RESTART THE TEST. 


1531 


















1532 










; SHIFT 


SUBROUTINES. 




1533 


















1534 


01 3564 


006201 






SHF3! 


ASP 


Rl 


S HERE FOP A SHIFT OF 3. 


1535 


01 3566 


306201 






shf2: 


ASP 


PI 


JHERE FOR A SHIFT OF 2. 


1536 


01 3570 


006201 






shfi : 


ASP 


Rl 


; HERE FOR A SHIFT OF 1 , 


1537 


01 3572 


0101 02 








MOV 


Rl ,R2 


J PUT RESULTES IN THE WORKING REG 


1538 


01 3574 


000203 








PTS 


R3 




1539 


















1540 










JEPRORS 


FOP WRITE CHECK. 




1541 


















1542 


013576 


032777 


040000 


165564 


wcfrr: 


BIT 


•BIT14.PRKCS 


JWAS IT A HARD ERROR. 


1543 


01 3604 


001010 








bNE 


WJHERR 


J YES GO PROSSES IT. 


1514 


01 3606 


005237 


001432 






I HZ 


ERRWCS 


; ADD 1 TO THE SOFT ERROR COUNT. 


1515 


01 3612 


022737 


0!*0004 


001432 




CMP 


#4,EPR-fCS 


J HAS THERE BEEN 4 OF THEM? 
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1546 


013620 


001 626 


1547 


01 3622 


000137 


1548 


013626 


005237 


1549 


H136 32 


022737 


1550 


01 3640 


001402 


1551 


01 3642 


000137 


1552 


01 3646 


0001 37 


1553 






1554 






1555 






1556 


01 3652 


000000 


1557 


01 3654 


000030 


1558 






1559 






1560 






1561 






1562 






1563 






1564 






1565 


013734 




1566 


013734 


1M4401 


1567 


01 3 740 


000401 


1568 






1569 


01 3744 




1570 


013744 




1571 


013744 


1 04401 


1572 


01 3750 


000424 


1 573 






1574 


01 4022 




1575 


01 4022 


1 04 407 


1576 


til 4024 


01 1 600 


1577 


014026 


104403 


1578 


014030 


001 


1579 


01403 I 


000 


1580 


014032 


162700 


1581 


014036 


100736 


1582 


01 4040 


022700 


1583 


01 4044 


003733 


1584 


01 4046 


1 10037 


1585 


014052 


000 300 


1586 


014054 


006100 


1587 


014056 


006100 


1588 


014060 


006100 


1589 


014062 


006100 


1590 


0! 4064 


006100 


1591 


014066 


010037 


1592 


01 4072 


104401 


1593 


014076 


00041 4 


1594 






1595 


014130 




1596 


014130 


01 3746 


1597 


014134 


104403 


1 598 


014136 


001 


1599 


014)37 


000 


1600 


01414V) 


104401 


1601 


014144 


000425 



<U2512 
001430 

000004 001430 



BEQ 
JMP 

wcheRR: Inc 

C«P 

BEG 

JMP 

syserr: jmp 



BUFFERS. 



buff: 
RB'iff: 



; ;65S: 
64$: 
SECT, : 



; ;65$: 
64$: 



000060 

0000 1 M 

001 31 4 



001352 
01 4100 



;j67$: 
66$: 



T<PE 
BR 

• ASCIZ 



.ASCIZ 

RDCHR 

MOV 

TYPOS 

.BYTE 

. BYTE 

SUB 

BMI 

CMP 

BLE 

MOVB 

SWAB 

ROL 

ROL 

ROL 

POL 

ROL 

MOV 

TYPE 

BR 

.ASCIZ 

MOV 

TYPOS 

■ BYTE 

.BYTE 

TYPE 

BR 



FAIL 

10 

F.RRtoCH 

•4,ERRWCH 

SYSERR 

RETRY 

SYSFR 



JYES PUT OUT FAILED MESSAGE. 

SNO SO TRY AGAIN. 

;ADD 1 TO THE HARD ERROR COUNT. 

;HAS THERE BEEN 4 OF THEM? 

;YES PUT OUT SYSTEM ERROR MESSAGE. 

JNO SO TRY AGAIN. 



.WORD 
.BLKW 



. SBTTL RK05 CONTROL PANEL TEST 



,65S 

64$ 

/?/ 



;;type asciz string 
; ; get over the asciz 



,65$ JJTYPE ASCIZ STRING 

64$ ; ; GET OVER THE ASCIZ 

<t5><12>/RK05 CONTROL PANEL TEST, WHICH DRIVE?/ 



#60, R0 

BAD. ON 

•10, R0 

BAD. ON 

P0,9#DRIVE 

R0 

R0 

P0 

R0 

R0 

R0 

R0,B#DSKTMP 

,67$ JJTYPE ASCIZ STRING 

66$ ; J GET OVER THE ASCIZ 

<15><12>/M0UNT PACK ON DRIVE*/ 

DRIVE, -(SP) JJSAVE DRIVE FOR TYPEOUT 

JlGO TYPE—OCTAL ASCII 
1 JJTYPE 1 DIGIT(S) 

; (SUPPRESS LEADING ZEROS 

,69$ ; j TYPE ASCIZ STRING 

68$ J ; GET OVER THE ASCIZ 
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SEQ 0053 



1602 










[[69$: 


.ASCIZ 


<15xl2>/PLACE DRIVE IN RUN [SHOULD SEE THE PUN, / 


1603 


014220 








68$: 






1604 


014220 


104401 


014226 






TYPE 


,71$ ;|TyPE ASCIZ STRING 


1605 


014224 


000423 








BR 


70S ; ; GET OVER THE ASCIZ 


1606 










; i7is: 


.ASCIZ 


<15><12>/P0WEP, AND ON CYLINDER LAMPS LIGHT, / 


1607 


014274 








70S: 






1608 


014274 


104401 


01 4302 






TYPE 


,73$ [[TYPE ASCIZ STRING 


1609 


014300 


000425 








BR 


728 ; I GET OVER THE ASCIZ 


1610 










: [73$: 


.ASCIZ 


<15X12>/MAKF DRIVE WRITE ENABLE PRESS CONTINUE/ 


1611 


014354 








72$: 






1612 


014354 


000000 








HALT 




1613 


014356 


004737 


016134 






JSR 


PCWRRDCK SGO WRITE 0'S, RD 0'S, CHECK 


1614 


014362 


104401 


014370 






TYPE 


,75$ [[TYPE ASCIZ STRING 


1615 


014366 


000430 








BR 


74S ; ) GET OVER THE ASCIZ 


1616 










[ [75S: 


.ASCIZ 


<15><12><15><12>/WRITE PROTECT THE DRIVE THEN J>PE5S CONTINUE/ 


1617 


014450 








74«: 






1 6 1 8 


014450 


000000 








HALT 




1619 


014452 


004737 


016344 






JSP 


PC#WRPRO [GO TRY OVERWRITE 


1620 


014456 


104401 


014464 






TYPE 


,77S ;;TYPE ASCIZ STRING 


1621 


014462 


000426 








BR 


76S ; ; GET OVER THE ASCIZ 


1622 










[ [77$: 


.ASCIZ 


<15><12><15><12>/CLEAR WRITE PROTECT THEN PRESS CONTINUE/ 


1623 


014540 








766: 






1624 


014540 


000000 








HALT 




1625 


014542 


004737 


016134 






JSR 


PCWRRDCK [GO WRITE 0'S, RD 0'S, CHECK 


1626 


014546 


01 3777 


001 352 


164622 




MOV 


B#DSKTMP, BRKDA ; SET UP DRIVE* 


1627 


014554 


012777 


00001 7 


164606 




MOV 


#17,BRKC5 ; FUNCTION WRITE PROTECT 


1628 


014562 


004737 


005574 






JSP 


PCSMTME [GO WAIST TIME FOR RKU-C 


1629 


014566 


105777 


164576 




1$: 


TSTB 


BRKCS ;IS CONTROL READY SET 


1630 


014572 


100375 








BPL 


1$ ;IF NO. BRANCH 


1631 


014574 


004737 


016344 






JSR 


PC,WRPRO :GO TRY OVERWRITE OF IERO'S 


1632 


014600 








PRTTWO: 






1633 


014600 


104401 


014606 






TYPE 


,65S ;;TYPE ASCIZ STRING 


1634 


014604 


000431 








BR 


64$ ; > GET OVER THE ASCIZ 


1635 










[ [65$: 


.ASCIZ 


<15><12><15><12>/CAUTIONl TRY TO OPEN THE DOOR, DO NOT FORCE S / 


1636 


014670 








64$: 






1637 


014670 


104401 


014676 






TyPE 


,67s ;;TyPe asciz string 


1638 


01 4674 


00041 4 








BR 


66$ ; [ GET OVER THE ASCIZ 


1639 










: ;67S: 


.ASCIZ 


<15><12>/DOOR SHOULD NOT OPEN 1 / 


1640 


014726 








66s: 






1641 


014726 


104401 


014734 






TyPE 


,69$ [[TyPE ASCIZ STRING 


1642 


014732 


000420 








BR 


68$ ; ; GET OVER THE ASClZ 


1643 










; 169$: 


.ASCIZ 


<15><12>/PRESS CONTINUE WHEN FINISHED/ 


1644 


014774 








68$: 






1645 


014774 


000000 








HALT 




1646 


014776 


104401 


015004 






TYPE 


,71$ ; [TYPE ASClZ STRING 


1647 


015002 


000426 








BP 


70$ [[GET OVER THE ASCIZ 


1646 










:;71$: 


.ASCIZ 


<15X12><15><12>/PUT DRIVE IN LOAD, WAIT FOR LOAD LIGHT/ 


1649 


015060 








70s: 






1650 


015060 


104401 


015066 






type 


,73$ ;;TyPE ASCIZ STRING 


1651 


015064 


000420 








BR 


72$ [[GET OVER THE ASCIZ 


1652 










; J73SJ 


.ASCIZ 


<15><12>/PPESS CONTINUE WHEN FINISHED/ 


1653 


015126 








72SI 






1654 


015126 


(100000 








HALT 




1655 


015130 


013777 


001352 


164240 




MOV 


IMOSKTMP, BRKDA ;SET UP DISK ADDRESS 


1656 


015136 


012777 


000015 


164224 




MOV 


»15, BRKCS [ISSUE A DRIVE RESET 


1657 


015144 


004737 


005574 






JSR 


PCSMTME ; KILL TIME FOR RK11-C 
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1658 


015150 


105777 


164214 


1659 


015154 


100375 




1660 


015156 


032777 


1 00000 


1661 


015164 


001023 




1662 


015166 


104401 


015174 


1663 


015172 


000420 




1664 








1665 


015234 






1666 


015234 


032777 


1 40000 


1667 


015242 


001015 




1668 


015244 


104401 


015252 


1669 


015250 


00041 2 




1670 








1671 


015276 






1672 


015276 


012777 


000001 


1673 


015304 


004737 


005574 


1674 


015310 


105777 


164054 


1675 


015314 


100375 




1676 


015316 


032777 


100000 


1677 


015324 


001425 




1678 


015326 


104401 


015334 


1679 


015332 


000422 




1680 








1681 


015400 






1682 


015400 


032777 


140000 


1683 


015406 


001431 




1684 


015410 


104401 


015416 


1685 


015414 


000426 




1686 








1687 


015472 






1688 


015472 






1689 


015472 


104401 


015500 


1690 


015476 


000422 




1691 








1692 


015544 






1693 


015544 


104401 


015552 


1694 


015550 


000425 




1695 








1696 


015624 






1697 


015624 


104401 


015632 


1698 


015630 


000426 




1699 








1700 


015706 






1701 


015706 


000000 




1702 


015710 


104401 


015716 


1703 


015714 


000422 




1704 








1705 


015762 






1706 


015762 


104401 


015770 


1707 


015766 


000423 




1708 








1709 


016036 






1710 


016036 


104401 


P16044 


mi 


016042 


000423 




1712 








1713 


016112 







; l75$i 

74$: 

164126 2$: 



: :77$: 
76$: 

164064 3$! 



;[79$! 
78SI 
163762 5SI 



; fBiSt 
80$: 



; |65$l 
64$: 



[ [67$: 
66$: 



; (69$: 

68$: 

XX: 



;?65$: 
64$: 



; >67$: 
66$: 



: »69s: 
68$: 



TSTB 

BPL 

BIT 

BNE 

TYPE 

BR 

■ASCIZ 

BIT 
BNE 
TYPE 
BR 

.ASCIZ 

MOV 

JSR 

TSTB 

BPL 

BIT 

BEQ 

TYPE 

BR 

• ASCI Z 

BIT 
BEQ 
TYPE 
BP 

.ASCIZ 



TYPE 
BR 

.ASCIZ 



.ASCIZ 

TyPE 
BP 

. ASCIZ 

HALT 
TYPE 
BR 

.ASCIZ 

type 
br 

.ASCIZ 

type 

BR 

.ASCIZ 



• RKCS 
1$ 

•BIT15.BRKEP 
2$ 

,75$ 
74$ 



; CONTROL READY SET? 

JIF NO, BRANCH 

JDRE SET 

5 IF YES BRANCH 

[ [ TYPE ASCIZ STRING 

[ I GET OVER THE ASCIZ 



<15X12>/DRE=BIT15 OF PKER DID NOT SET/ 

•140000, BRKCS (DID HARD ERROR ON ERROR SET 

3$ [ BRANCH IF YES 

,77$ ;;TYPE ASCIZ STRING 

76$ ; I GET OVER THE ASCIZ 

<15><12>/ERR0P DID NOT SET/ 



*1, BRKCS 
PC f SMTME 
BRKCS 
4$ 

#BIT15,BRKER 
5$ 

,79$ 
78$ 



J ISSUE A CONTROL RESET 
[WAIST TIME 
[CONTROL READY SET 
;IF NO, BRANCH 
J 'ORE* CLEAR 
[IF YES BRANCH 
IJTYPE ASCIZ STRING 
J [GET OVER THE ASCIZ 



<15X12>/C0NTR0L RESET DID NOT CLEAR 'DRE ' / 

•140000, BRKCS [ERROR BITS CLEAR 
X [IF YES BRANCH 

,81$ | [ TYPE ASCIZ STRING 

80$ ; [GET OVER THE ASCIZ 

<15><12>/C0NTR0L RESET DID NOT CLEAR 'ERROR* 



,65$ ; I TYPE ASCIZ STRING 

64$ [ [GET OVER THE ASCIZ 

<15><12><15><12>/0PEN THE DOOR, PUT DRIVE IN RUN/ 

,67$ [ i type asciz string 

66$ [[GET OVER THE ASClZ 

<15><12>/CAUTIONl IF RUN LIGHT ON ERROR 1 DEPRESS/ 

,69$ ,-|TyPE ASCIZ STRING 

68$ [[GET OVER THE ASCIZ 

<15><12>/LOAD IMMEDIATELY, CONTINUE WHEN FINISHED/ 



,65$ i | type asciz string 

64$ [ | get over the asciz 

<15><12><15x12>/rem0ve the pack, close the door/ 

,67$ [itype asciz string 

66$ [[GET OVER THE ASClZ 

<15X12>/PUT DRIVE IN PUN, DPIVE SHOULD NOT/ 

,69s j i type asciz string 

68$ [[GET OVER THE ASCIZ 

<15X12>/RUN... INTERLOCKS HAVE BEEN CHECKED/ 
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SEQ 0055 



1714 


016112 


104401 


016170 






TYPE 


, 7 1 $ 


JJTYPE ASCIZ STRING 


1715 


016116 


000404 








BR 


70$ 


;iGET OVER THE ASCIZ 


1716 










: : 7 1 s : 


•ASCIZ 


< 1 5><1 2>/D0NE i 


/ 


1 7 1 7 


1 fa 1 30 








70s : 








1718 


016130 


0001 37 


001440 






JMP 


MSTART 




1 7 1 9 


016134 


005037 


001 362 




wrpdck : 


CLR 


BHPATTRN 


;MAKE A PATTERN OF ZERO'S 


1 7?0 


016140 


01 3777 


001 352 


163230 




MOV 


B#DSKTMP, BRKD A 


;SET UP DRIVE ADDRESS 


1721 


Ml 61 46 


012777 


00000 1 


163214 




MOV 


* 1 1 BRKCS 


; ISSUE A CONTROL RESET 


1722 


016154 


004737 


005574 






JSR 


PC , SMTME 




1723 


016160 


1 05777 


163204 




5S : 


TSTB 


BRKCS 


JCONTPOL READY SET 


1 724 


016164 


1 00375 








BPL 


5$ 


;IF NO BRANCH 


1725 


016166 


013777 


001 352 


163202 




MOV 


fliDSKTMP, BRKDA 


;SET UP DRIVE ADDRESS 


1726 


016174 


012777 


001 362 


163172 




MOV 


*PATTRN,BRKRA 


;GET BUSS ADDRESS 


1727 


016202 


01 3777 


001 344 


163162 




MO/ 


BtfSECCNT, BRKWC 


;W0RD COUNT 1 SECTOR 


1728 


1 6 2 1 


013777 


001 354 


163152 




MOV 


P*WRITCS»BPKCS 


;IBA + l«iR ITE + GO 


172^ 


016216 


004737 


005574 






JSR 


PC , SMTME 


;KILL TIME FOR RK11-C 


173a 


016222 


105777 


163142 




1 $: 


TSTB 


BRKCS 


; CONTROL READY SET 


1731 


016226 


1 00375 








BPL 


1$ 


;IF NO, BRANCH 


1732 


016230 


01 3777 


001 352 


163140 




MOV 


BJDSKTMP, 0RKDA 


;SF.T UP RK REGISTERS 


1733 


016236 


01 2777 


007336 


163130 




MOV 


tPDBUFF, BRKBA 


>TO READ ONE SECTOR 


1734 


016244 


013777 


001 344 


163120 




MOV 


BtSECCNT, BRKWC 


; TO THE READ BUFFER 


1735 


016252 


01 3777 


001 356 


1631 10 




MOV 


9»READCSf(3RKCS 




1 736 


01 6260 


H04737 


005574 






JSR 


PC , SMTME 


JKII.L TIME FOR RK11-C 


1737 


016264 


1 05777 


163100 




2S: 


TSTB 


BRKCS 


;CONTROL READY SET 


17^8 


016270 


1 00375 








BPL 


2$ 


J IF NO, BRANCH 


1739 


016272 


012704 


007336 






MOV 


*RDBUFF,R4 


;GfcT BUFFER TO R4 


1 740 


016276 


005005 








CLR 


P5 


•SET UP TO COMPARE 


1 741 


016300 


020524 






33: 


CMP 


R5, (R4) + 


;FOR ZERO'S 


1 742 


016302 


00 141 4 








BEG 


4$ 


;IF OK, BRANCH 


1743 


016 304 


104401 


016 312 






TYPE 


, 65$ 


;>TYPE ASCIZ STRING 


17J4 


016310 


00041 








BR 


64$ 


; ! GET OVER THE ASCIZ 


1 745 










; ;65Sj 


.ASCIZ 


<15><12>/WRITE 


FAILED/ 


1 746 


016 332 








64$ : 








1747 


016332 


000700 








BR 


WRRDCK 


JGO BACK TRY AGAIN 


1 748 


016 3 34 


022704 


010336 




4S : 


CMP 


*MAnSEl»R4 


;done all checks 


1 749 


016 340 


001 357 








BNE 


3$ 


;IF NO, BRANCH 


1 750 


016342 


P00207 








RTS 


PC 


J IF YES, RETURN 


1 751 


01 6 344 


032777 


000040 


163012 


ViRPPO : 


BIT 


iBIT5» 9RKDS 


;BIT 5 ON 


1 752 


016352 


001071 








BNE 


1 $ 


;1F YES, BRANCH 


1 753 


016354 


1 04401 


016362 






TYPE 


.65$ 


;;TYPE ASCIZ STRING 


1 754 


016360 


00041 6 








BR 


64$ 


; ; GET OVER THE ASCIZ 


1 755 










; ;65S : 


.ASCIZ 


<15><12>/WPS=BIT5 OF RKDS NOT SET/ 


1 756 


016416 








64$ : 








1757 


016416 


0127 3 7 


177777 


001 362 


1 s : 


MOV 


*177777,BtPATTR«i ; GO LOAD ALL 


1 758 


16424 


01 3777 


001 352 


162744 




MOV 


B#DSkTmP« BRkDA 


;RK REGISTERS 


1 759 


016432 


01 2777 


001 362 


162734 




MOV 


•PATTRN, BRKBA 


;TO WRITE 


1764 


016440 


01 3777 


001 344 


1 62724 




MOV 


B*SECCNT. BRKWC 


; ALL ONES (WITH WRITE LOCK) 


17 61 


016 446 




ft a 1 3Cj 
Ufcy 1 


16 2714 






BJWRITCS, BRKCS 


JOVER THE ZERO'S 


1 762 


16454 


004737 


005574 






JSR 


PC, SMTME 


; K ILL TIME FOR RK11-C 


1 7ft 3 


016460 


105777 


167704 




2$: 


TSTB 


BRKCS 


;CONTROL READY SET? 


1764 


016464 


100375 








BPL 


2$ 


; IF NO, BRANCH 


1765 


01 6466 


032777 


020000 


162672 




BIT 


*BIT1 3# BRKER 


;«LO BIT SET 


1 766 


016474 


2*01032 








BNE 


3$ 


;IF YES BRANCH 


1767 


016476 


104401 


016504 






TYPE 


,67$ 


;;TYPE ASCIZ STRING 


i 768 


0i65«2 


000427 








BR 


66$ 


; ; GET OVER THE ASCIZ 


1 769 










; ;67$: 


.ASCIZ 


<15><12>/EXPEC 


"ED WLO=BIT13 OF RKER BUT DID 
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1 770 


016562 








66$: 








1 771 


016562 


012777 


000001 


162600 


3$: 


MOV 


»1» BRKCS 


!D0 A CONTROL RESET 


1 772 


016570 


004737 


005574 






JSR 


PC, SMTME 


; KILL TIME FOR RK11-C 


1773 


016574 


105777 


162570 




4$: 


TSTB 


BRKCS 


;CONTROL READY SET? 


1 774 


016000 


1 00 375 








BPL 


4$ 


;IF NO BRANCH 


1 775 


016602 


032777 


020000 


162556 




BIT 


#BIT13, BRKER 


;WLO BIT CLEAR 


1 776 


016610 


0014 31 








BEO 


RDCHK0 


;IF YES, BRANCH 


1 777 


016612 


1 04401 


016620 






TYPE 


,69$ 


:;TYPE ASCIZ STRING 


1 778 


016016 


000426 








BR 


68$ 


! ; GET OVER THE ASCIZ 


1 779 










: j69$: 


. ASCIZ 


<15><12>/CONTPOL RESET 010 NOT CLEAR *WLO' OF 


1 780 


016674 








68$: 








1 781 


01 6674 


01 3777 


001 352 


162474 


RDCHK0: 


MOV 


p*DSKTMP, 9RKDA 


;SET UP RK REGISTERS 


1 782 


016702 


012777 


007336 


162464 




MOV 


*RDBUFF,BRk8A 


;T0 READ SECTOR 0, 


1783 


016710 


01 3777 


001344 


162454 




MOV 


BtSECCNT, BRKWC 


;CYLINDER 0, HEAD 


1784 


016716 


01 3777 


001356 


162444 




MOV 


B#READCS, BRKCS 


;T0 ENSURE NO WRITE TOOK PLACE 


17B5 


016724 


004737 


005574 






JSR 


PC, SMTME 


; KILL TIME 


1 786 


016730 


105777 


162434 




3s: 


TSTB 


BRKCS 




1 787 


016734 


100375 








BPL 


3$ 




1 788 


016736 


012703 


0200H5 






MOV 


* 5 , P 3 




1 789 


016 742 


012704 


007336 






MOV 


* RDBUFF, R4 


SCHECK TO INSURE NO WRITE 


1 79/) 


016746 


005005 








CLP 


P5 


;TOOK PLACE 


1 791 


016750 


020524 






1 $: 


CMP 


R5, (R4)+ 


;WITH WRITE LOCK 


1 792 


016752 


001 474 








BEQ 


76 




1 793 


016754 


005 303 








DEC 


P3 


;DEC THE ERROR COUNT 


1 794 


016756 


001 47 5 








BEQ 


4$ 


;IF ZERO BRANCH 


1 795 


01 6760 


104401 


016760 






TYPE 


,65$ 


;;TYPE ASCIZ STRING 


17 96 


fc)16764 


000422 








BR 


64$ 


;;GET OVER THE ASCIZ 


1 797 










; J65S: 


.ASCIZ 


<15><12>/«RITE 


OCCURRED WITH WRITE PROTECT/ 


1 798 


01 7032 








64$: 








1 799 


01 7032 


005744 








TST 


-(R4) 




1 800 


017034 


1 04401 


017042 






TYPE 


,67$ 


:;TYPE ASCIZ STRING 


18fM 


017040 


00041 








BR 


66$ 


; ! GET OVER THE ASCIZ 


1802 










: >67$: 


.ASCIZ 


<15><12>/BUFFER 


ADDR=/ 


1303 


017062 








66$: 








1804 


017062 


010440 








MOV 


P4,-(SP) 




1805 


017064 


104403 








TYPOS 






1«'*6 


017066 


006 








.BYTE 


6 




18fl7 


017067 


001 








.BYTE 


1 




1 838 


017 070 


104 401 


01707b 






TYPE 


,69$ 


j:TYPE ASCIZ STRING 


1809 


01707 4 


000406 








BR 


68$ 


J ; GET OVER THE ASCIZ 


1810 










; ;69$: 


.ASCIZ 


/ EXPCTD=/ 




1811 


017112 








68$: 








1812 


017112 


010546 








MOV 


R5,-(SP) 




1813 


017114 


104404 








TYPON 






1314 


017116 


1 04401 


017174 






TYPE 


,71S 


;:TYPE ASCIZ STRING 


1815 


017122 


000406 








PR 


70S 


; ; GET OVER THE ASCIZ 


1816 










; x 7 J S : 


.ASCIZ 


/ RECVDs/ 




1817 


017140 








70s: 








1818 


01 71 40 


012446 








MOV 


(R4)+,-(SP) 




1819 


017142 


104404 








TYPON 






1920 


0171 44 


022704 


010336 




2$: 


CMP 


•MAnSEL, R4 


JFINISHED ALL CHECKS 


1821 


017150 


001 277 








BNE 


1$ 


SIF NO, BRANCH 


1822 


017152 


000207 






4$ : 


RTS 


PC 


; RETURN 



1823 
1 824 
1825 
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1327 










; THE FOLLOWING REVISION MAS MADE BY JIM KAPADIA 


182" 
















1829 










, SBTTL CONTROL PANEL TEST » 2 


1810 
















1831 










f THIS IS THE 


ENTRY POINT INTO CONTROL PANEL TEST »2. ALL 


1832 










; THE DRIVES THAT ARE PRESENT AND IN 'ROY ' CONDITION ARE 


1833 










; REPORTED (ON 


LINE). 




1834 
















1835 


017154 


000240 






SECT. 4: NOP 






1836 


017156 


012777 


000001 


162204 


MOV 


Ilf BRKCS 




1837 


017164 


105777 


162200 




311 TSTB 


PRKCS 




1838 


017170 


100375 






BPL 


3$ 




1839 


017172 


012700 


020470 




MOV 


*DRIV0,F0 




1840 


017176 


0H5001 






CLR 


Rl 




1841 


017200 


005002 






CLR 


R2 




1842 
















1843 


017202 


010210 






1$! MOV 


R2, (R0) 


;SET UP ADDRESS TABLE 


1844 


017204 


010277 


162166 




MOV 


R2# HRKOA 


JADDPESS THE DRIVE 


1845 


017210 


105777 


162150 




TSTB 


9RKDS 


; IS IT PRESENT? 


1846 


017214 


100021 






BPL 


2$ 


(NO 


1847 
















1848 


017216 


104401 


020324 




TYPE 


»EM1 


; TYPE 'DRIVE' 


1849 


017222 


010146 






MOV 


R1,-(SP) 


; TYPE OUT DRIVE * 


1850 


017224 


104402 






TYPOC 






1851 


017226 


104401 


020335 




TYPE 


,EM2 


; TYPE 'ON LINE' 


1852 


017232 


052710 


000300 




BIS 


#BIT6+BIT7, (R0) 


;SET BITS INDICATING THIS 


1853 














JDRIVE PRESENT 


1854 
















1855 


017236 


012777 


000015 


162124 


MOV 


#15,SRKCS 


; ISSUE A DRIVE RESET 


1856 


017244 


004737 


005574 




JSR 


PC»SMTME 


; ALLOW SOME TIME 


1857 


017250 


032777 


000100 


162106 


4$1 BIT 


#RWS#PRKDS 


?WAIT FOR PWS RDY 


1858 


017256 


001774 






BEO 


4$ 




1859 
















I860 


017260 


005720 






2SI TST 


(R0) + 




1861 


017262 


005201 






INC 


Rl 




1862 


017264 


062702 


020000 




ADD 


«20000,R2 


;NXT DRIVE 


1863 


017270 


001344 






BNE 


IS 


; ALL DONE? 


1864 
















1865 


017272 


104401 


001 161 




TYPE 


rSCPLF 




1866 
















1867 










!THIS CODE CHECKS THE CONDITION 


OF 'DRY ' BIT IN RKDS FOR EVERY 


1868 










JDRIVE. IF ' 


DRY* IS SET DRIVE 


IS SAID TO BE 'ON LINE' i OTHERWISE 


1369 










,-IS OFFLINE. 


IF THE 'DRY' BIT 


HAS CHANGED FROM LAST TIME, THEN 


1870 










j IT IS REPORTED. IF THERE IS NO CHANGE NOTHING IS REPORTED. 


1871 
















1872 


017276 


012700 


020470 




BEGCTI MOV 


*ORIV0»R0 


> INITIALIZE POINTERS 


1873 


017302 


005001 






CLR 


Rl 




1874 
















1875 


017304 


011077 


162066 




BEGCTI 1 MOV 


(R0) « 8RKDA 


(ADDRESS A DRIVE 


1876 


017310 


042777 


017777 


162060 


BIC 


M7777,eRKDA 


(MASK OUT NON DM BITS 


1877 


017316 


105777 


162042 




TSTB 


0RKDS 


JIS THIS DRIVE ON LINE? 


1878 


017322 


100044 






BPL 


15 


;NO 


1879 














1 YES 


1880 


017324 


105710 






TSTB 


(R0) 


JWAS IT 'ON LINE' LAST TIME? 


1881 


017326 


100454 






BMI 


NXT1 


JYES, NO MESSAGE TO REPORT 


1882 


017330 


052710 


000200 




BIS 


»BIT7, CR0) 


;IT CHANGED FROM OFF LINE TO ON 
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SEQ 0059 



1893 


017334 


1 04401 


020324 






TYPE 


, EMI 


JLINE, REPORT MESSAGE 


1894 


017340 


010146 








MOV 


Rl » -CSP) 




1885 


017342 


1 04402 








TYPOC 






1886 


017344 


1 04401 


020335 






TYPE 


i EM2 


;TYPE 'ON LINE" 


1887 


017350 


032777 


000040 


1 62006 




BIT 


ft WPS, flRKDS 


JWPITE ENABLED? 


1888 


017356 


001 41 7 








BEQ 


2$ 


JYES, OK 


1889 


01 7360 


104401 


017366 






TYPE 


>65S 


;;TYPE ASCIZ STRING 


1 89fl 


017364 


000414 








PR 


64S 


;jGET OVER THE ASCIZ 


1 391 










; ;65S 


.ASCIZ 


<15><12>/EROR 


NOT WRT ENABLED/ 


1 892 


017416 








64$: 








1893 


017416 


012777 


00001 7 


161744 


2$ : 


MOV 


# 1 7 , aRKCS 


;WRITE PROT THE DISK 


1894 


017424 


105777 


161740 




3S I 


TSTB 


PRKCS 




1895 


017430 


100375 








BPL 


3S 




1896 


017432 


00041 2 








BP 


NXTl 




1 897 


















1898 


017434 


105710 






1$: 


TSTB 


CR0) 


JWAS THIS DRIVE OFF LINE LAST 


1 999 


017436 


100010 








BPL 


NXTl 


; TIME? BRNCH IF YES 


1 *00 


017440 


104401 


020324 






TYPE 


,EM1 


;IF NOT, REPORT THE CHANGE 


1 301 


017444 


010146 








«OV 


R1,-(SP) 


i TYPE DRIVE * 


1902 


01 7446 


104402 








TYPOC 






1903 


017450 


104401 


020347 






TYPE 


,EM3 


! TYPE 'OFF LINE' 


1 9p4 


017454 


04271 


000200 






BIC 


#BIT7, CR0) 


; CLEAR BIT TO INDICATE THIS 


1905 
















;DRIVE 'OFF LINE ' 


1906 


















1 937 










(This 


CODE CHECKS *WPS' BIT FOR EVERY DRIVE THAT IS IN 'DRY ' 


1908 










'CONDITION CON 


LINE). IT REPORTS ANY CHANGE IN THE CONDITION OF 


1909 










; THE 


WPS' BIT. 


IF THERE WAS 


NO CHANGE FROM LAST TIME NOTHING 


1910 










;IS REPORTED. 


AT THE TIME OF 


ENTRY R0 POINTS TO DRIVE FLAG. 


191 1 
1 91 2 


017460 


1 05777 


161700 




NXTl : 


TSTB 


9RKDS 


;IS THIS DRIVE PRESENT? 


191 3 
















•RKDA CONTAINS THE DRV * 


1 914 


017464 


100033 








BPL 


NXT2 


;NOf SKIP CHECKING 


1915 


















1916 


017466 


P32777 


000040 


161670 




BIT 


*WPS«f»RKDS 


;<*PS BIT SET? 


1917 


017474 


00101 4 








BNE 


IS 


: YES 


1918 
















;WPS BIT CLEAR 


191 9 


017476 


032710 


000004 






BIT 


#BIT2, CP0) 


JWAS IT CLR LAST TIME ALSO? 


1 920 


01 7502 


001 424 








BEQ 


NXT2 


; YES, NOTHING TO REPORT. 


1 921 
















;WPS CHANGED FROM 'SET' 


1922 


017504 


104401 


020324 






TYPE 


,EM1 


;TO 'CLR', REPORT IT 


1923 


017510 


010146 








MOV 


Rt,-CSP) 


; TYPE DRIVE # 


19?4 


01751 2 


104402 








TYPOC 






1925 


017514 


042710 


000004 






BTC 


#BIT2, CP0) 


; INDICATE THAT 'WPS' IS CLEAR 


1 926 


017520 


1 44401 


020375 






TYPE 


,EM5 


; TYPE ' WPS CLEAR ' 


1927 


017524 


00041 3 








BR 


NXT2 




1928 
















;<iP5 BIT IS SET 


1929 


01 7526 


032710 


000004 




IS! 


BIT 


*BIT2, (R0) 


;WAS IT SET LAST TIME ALSO? 




01 7532 


0010 1 








BNE 


NXT2 


;YES, NOTHING TO REPORT. 


1931 
















;WPS CHANGED, FROM 'CLR ' TO 


1912 
















;'SET', REPORT THIS CHANGE 


1933 


017534 


1 04401 


020324 






TYPE 


,FM1 


; TYPE 'DRIVE' 


1934 


017540 


010146 








MOV 


Rl ,-CSP) 


; TYPE DRIVE * 


1935 


017542 


104402 








TYPOC 






1936 


017544 


1044^1 


020362 






TYPE 


. EM4 


; TYPE ' WPS SET ' 


!9?7 


01755P 


P57710 


000004 






BIS 


HBIT2, CR03 


;SET FLAG BIT INDICATING WPS SET 


1 938 
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1939 
1 94tf 
1941 
1 912 
1 943 
1 944 
1945 
1946 
1 947 
1 948 
1949 
1 950 
1951 
1 952 
1953 
195» 
1 955 
1956 
1957 
1 958 
1 959 
I960 
1 961 
1962 
1963 
1 964 
1 965 
1966 
1967 
1 ^68 
1 *69 
1970 
1 971 
1972 
1 97 3 
1 974 
1975 
1 976 
1977 
1978 
1979 
19R0 
1981 
1982 
t 98 3 
1 984 
1985 
1986 
198 7 
1 988 
1 989 
1 990 
1 991 
1992 
1993 
1994 



;THIS CODE PEPFOR«S A SEEK FUNCTION ON A DRIVE AND CHECKS IF 
!THE 'DPL' BIT SET AS A RESULT, (IF THE POWER WAS CUT OFF 
; FROM THE DRIVE). NOTE THAT ONLY THOSE DRIVES ARE 
;CHECKED WHICH WERE FOUND TO BE PRESENT AT BEGINNING ( WHEN 
;THIS TEST WAS ENTERED), SEEK IS DONE TO CYLINDER 1. 
; AT THE TIME OF FNTRY R0 POINTS TO THE DRIVE FLAG. 



017554 


032710 


000100 




NXT2 : 


BIT 


»BIT6, (R0) 


;wAS THIS DRIVE PRESENT AT BEGNG 


017560 


001403 








BEO 


4S 


;no 


017562 


105777 


161576 






TSTB 


ORKDS 


SIS IT PRESENT NOW? 


017566 


1 00402 








BMI 


3S 


;YES 


017573 


0*01 37 


020226 




4s: 


JMP 


DN1DRV 


;IF NOT SKIP THIS CHECK 


017574 


0S7777 


000040 


161574 


3$: 


BIS 


140, PRKDA 


;RKDA ALREADY HAS THE DRV # 
















SSET CYL 1 ADDRESS 


017602 


012777 


00001 1 


161560 




MOV 


*ll,f»RKCS 


; SEEK , GO 


017610 


105777 


161554 




is: 


TSTB 


BPKCS 


JWAIT FOR CONTROL RDY? 


01761 4 


100375 








BPL 


1$ 


; SOMETHING WRONG IF CNTAL RDY 
















SDOES NOT COME BACK 


017016 


032777 


010000 


161540 




BIT 


*DPL, aRKDS 


;DPL BIT SET? 


017624 


001 414 








BEO 


2$ 


;N0 
















JYES, DPL SET 


01 7626 


032710 


000001 






BIT 


«BIT0, (R0) 


! WAS *DPL' SET LAST TIME ALSO? 


017632 


001 167 








BNE 


CLRDPL 


;YES, NOTHING TO REPORT. 
















1DPL CHANGED, GOT SET THIS 


017634 


1 04401 


020324 






TYPE 


,E"U 


! TIME, REPORT IT 


01 7640 


010146 








MOV 


Rl.-CSP) 




01 7b42 


104402 








TYPOC 






017644 


104401 


0204) 3 






TYPF 


,EM6 


; TYPE 'POWER LO' 


017650 


052710 


000001 






BIS 


*«IT0, (R0) 


; SET FLAG BIT INDICATING THAT 
















SDPL SET THIS TIME 


017b54 


000556 








BR 


CLRDPL 


















S'DPL' BIT IS CLEAR 


01 7656 


032710 


000001 




2$: 


BIT 


*RIT0, (R0) 


JWAS 'DPL* CLEAR LAST TIME ALSO? 


017662 


001410 








BEO 


WATSK 


;YES, NOTHING TO REPORT 
















; REPORT THAT 'DPL ' BIT CHANGED, 


017664 


104401 


020324 






TYPE 


,EM1 


JFPOM SET TO CLEAR 


017670 


010146 








MOV 


R1,-(SP) 




017672 


1 04402 








TYPOC 






017674 


104401 


020434 






TYPE 


,EM7 


; TYPE 'POWER UP' 


017700 


042710 


000001 






BIC 


•BIT0, (R0) 


; SET FLAG BIT INDICATING THAT DPL 



J IS CLEAR THIS TIME 

iTKIS CODE WAITS FOR THE SEEK (DONE ABOVE) TO FINISH. WAITING 
; TIME IS APPPOX. 50 MS (FOR THE WORST CASE). IF R/W/S RDY 
;DoES NOT SET WITHIN 50 MS* THEN IT IS ASSUMED THAT A 'SIN' 
;IS POSSIBLE AND THE PROGRAM WAITS FOR 1450 MS MORE, SO THAT 
; THE 'SIN ' CAN SET. IF 'SIN * DOES NOT SET WITHIN THIS 
:TIME AN ERROR IS REPORTED : 
; SIN DIDN'T OCCUR 

;IF R/W/S ROY SETS WITHIN 50 MS THE PROGRAM PROCEEDS TO 
;CHECK THE NEXT DRIVE. 



017704 012705 164220 



WATSK! 



MOV 



»-6000.,R5 



i SET COUNT TO WAIT FOR 
;50 MS 
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19 95 


017710 


032777 


000100 


161446 


is: 


BIT 


tPWS,BRKDS 


;R/W/S, RDY SET? 


1996 


017716 


001042 








BNF. 


3$ 


; YES 


1997 


P17720 


005205 








INC 


R5 


;WAIT 


1998 


017722 


001 372 








BNE 


1$ 




1999 
















;50 MS OVER, R/W/S RDY 


2000 
















JDIDN'T SET. WAIT FOR 


2001 
















JSIN TO SET. 


2002 


017724 


005004 








CLR 


R4 




2003 


017726 


012705 


177777 






MOV 


•177777, R5 


I SET UP COUNT 


2004 


017732 


032777 


001000 


161424 


2s: 


BIT 


»SIN,aRKDS 


;SIN SET? 


2005 


017740 


001045 








BNE 


SINST 


;yes 


2006 


017742 


005305 








DEC 


R5 


; WAIT 


2007 


017744 


001372 








BNE 


2$ 




2008 


017746 


005704 








TST 


R4 




2009 


017750 


001002 








BNE 


4$ 




2013 


017752 


005204 








INC 


R4 




201 1 


017754 


000766 








BR 


2$ 




2012 
















;1500 MS ELAPSED, BUT SIN 


2013 
















i DIDN'T SET. ERROR t 


201 4 


017756 








4$: 








7015 


017756 


104401 


017764 






TYPE 


,65$ 


; ;tyPe asciz string 


201 6 


017762 


000415 








BR 


64$ 


; :get over the asciz 


201 7 










; »65$: 


.ASCIZ 


<15><12>/5IN 


didn't occur, drve/ 


2018 


020016 








646: 








2019 


020016 


010146 








MOV 


Rl,-(SP) 


) type drive # 


2020 


020020 


104402 








TYPOC 






2021 


020022 


000501 








BR 


DNIDRV 




2022 


020024 


032710 


000002 




3S: 


BIT 


#BIT1, CR0) 


;DID R/W/S RDY SET LAST TIME? 


2023 


020030 


001 476 








BEQ 


DNIORV 


;YES 


2024 


020032 


042710 


000002 






BIC 


«BIT1,CR0) 


;CLR FLAG INDICATING THAT SEEK IS 


2025 


020036 


104401 


020324 






TYPE 


,EM1 


; REPORT THAT SEEK IS OK 


2026 


020042 


010146 








MOV 


P1,-(SP) 




2027 


020044 


104402 








TYPOC 






2028 


020046 


104401 


020455 






TYPE 


,EM9 




2029 


020052 


000465 








BP 


DN 1 DRV 




2030 


















2031 










;IF sin 


SET, DO 


DRIVE RESET 


AND CLEAR IT 


2032 


















2033 


020054 


032710 


000002 




sinst: 


BIT 


#BITl, tR0) 


SDID 'SIN' SET LAST TIME ALSO? 


2034 


020060 


001010 








BNE 


4$ 


;YES, NOTHING TO REPORT 


2035 


020062 


052710 


000002 






BIS 


»BIT1, CR0) 


JSET FLAG INDICATING THAT 


2036 


020066 


104401 


020324 






TYPE 


, EMI 


J'SIN' SET, AND REPORT THE CHANGE 


2037 


020072 


010146 








MOV 


Rl.-CSP) 




2038 


020074 


104402 








TYPOC 






2039 


020076 


104401 


020447 






TYPE 


, EMS 


> TYPE 'SIN* 


2040 


















2041 


020102 


017705 


161270 




4S! 


MOV 


BRKDA , P5 


1SAVE RKDS 


2vM2 


020106 


012777 


000001 


161254 




MOV 


*l,faRKCS 


JDO CONTROL RESET 


2043 


02«!114 


1 05777 


161250 




is: 


TSTB 


BR«CS 


;WAIT FOR CONTROL RDY 


2044 


020120 


100375 








BPL 


IS 




2045 


020122 


010577 


161250 






MOV 


P5,BPKDA 




2046 


020126 


012777 


00001 5 


161234 




MOV 


*15, BRKCS 


;DO DRIVE RESET. RKDA 


2047 
















; ALREADY HAS THE DRVE » 


2J48 


020134 


105777 


161230 




2$: 


TSTB 


BRKCS 


;WAIT FOR CNTRL RDY 


2049 


020140 


1 00 3 7 5 








BPI- 


2S 




2053 


020142 


005005 








CLP 


R5 
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2051 


020144 


032777 


000100 


161212 


3$: 


BIT 


#PWS,»RKDS 




;R/W/S SET? 


2052 


020152 


001025 








BNE 


DNIDRV 




(YES 


2053 


020154 


005205 








INC 


R5 






2054 


020156 


001 372 








BNE 


38 




f WAIT FOR R/W/S RDY 


2055 


















; REPORT ERROR. R/W/5 RDY 


2056 


020160 


104401 


0201 66 






TYPE 


,65S 




JITYPE ASCIZ STRING 


2057 


020164 


00041 1 








BP 


64$ 




; I GET OVER THE ASCIZ 


2058 










; :65S: 


.ASCIZ 


<15><1 2>/RWS 


RDY NOT SET/ 


2059 


020210 








64$: 










2060 




















2061 


020210 


000406 








BR 


DNIDRV 






2062 




















2063 










»IF DPL 


SET CLEAR THE ERROR 


BY 


DOING CONTROL RESET. 


2064 




















2065 


020212 


012777 


000001 


161 150 


clpdpl: 


MOV 


#1, BRKCS 




;CONTROL RESET 


2466 


020220 


105777 


161144 




1$: 


TSTB 


BRKCS 




;WAIT FOR CNTRL RDY 


2067 


020224 


100375 








BPL 


IS 






2068 










;AT THIS STAGE 


THE DRIVE (# 


IN 


RKDA) HAS BEEN CHECKED 


2069 










;FOR DRY, WPS, 


DPL, & SIN. THE 


POINTERS ARE INCREMENTED 


2070 










; AND THE SAME 


CHECKS WILL BE 


DONE ON THE NEXT 


2071 










JDRIVE 


& THEN 


THE NEXT ONE 6. 


SO 


ON. NOTE THAT 


2372 










;THIS SUB-PROGRAM KEEPS ON CYCLING THROUGH 


2073 










; ALL THE DRIVES. AT THE TIME 


OF 


ENTRY (HERE) 


2074 










;R0 POINTS TO 


THE FLAG FOR THE 


DRIVE THAT WAS 


2075 










JJUST CHECKED. 


BEFORE GOING 


ON 


TO THE NEXT 


2076 










jDRIVE 


THE HEADS ARE BROUGHT 


BACK TO CYLINDER 


2077 










;0 C FOR 


THE NEXT CYCLE). 






2078 




















2079 


020226 


011077 


161144 




DN1DRVI 


MOV 


C R0 ) , BRKDA 




1GET DRIVE * 


2080 


020232 


105777 


161126 






TSTB 


BRKDS 




i DRIVE PRESENT? 


2081 


020236 


100017 








BPL 


3$ 




:no 


2082 


020240 


042777 


017777 


161130 




BIC 


#17777, BRKDA 




;CYL ADRES s 


2083 


020246 


012777 


00001 1 


161114 




MOV 


»11, BRKCS 




;GO, SEEK 


20R4 




















2085 


020254 


105777 


161 110 




it: 


TSTB 


BRKCS 




;WAIT FOR CNTRL RDY 


2086 


020260 


100375 








BFL 


1$ 






2087 




















2088 


020262 


004737 


005574 






JSR 


PC»SMTME 






2089 


020266 


032777 


000100 


161070 


41: 


BIT 


»RWS,BRKDS 






2090 


020274 


001774 








BEQ 


4$ 






2091 




















2092 


020276 


005720 






38: 


TST 


(R0) + 




t INCREMENT POINTERS TO 


2093 


020300 


005201 








INC 


Rl 




; NEXT DRIVE 


2094 


020302 


020127 


000010 






CMP 


Ri,#ia 




; ALL DONE, THIS CYCLE? 


2095 


020306 


001402 








BEO 


2S 




J YES 


2096 


020310 


000137 


017304 






JMP 


BEGCT1 




JGO DO NEXT DRIVE 


2097 


020314 


000137 


017276 




28: 


JMP 


BEGCT 




J RESTART THE CYCLE OVER 


2098 


















! AGAIN 


2099 




















2100 




















2101 




















2102 


020320 


000000 






shfcnt: 


.WORD 









2103 


020322 


000000 






drvcnt: 


• WORD 









2104 










; MESSAGES 








2105 


020324 


005015 


051104 


053111 


EMI : 


•ASCIZ 


<15><12>/DRIVE 


/ 


?<?'> 


020332 


55201P5 


00? 
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SEQ 0063 



2107 


020335 




t"t ' t4W 


DZUJ J D 




.ASCIZ 


/ PtM TTHFV 
/ UN UINE*/ 


2 108 


020342 


0445 1 4 














020347 




047440 


043 106 


* 


ASC I Z 


/ OFF LINE/ 


2 1 1 


R20 354 


046040 




000105 








2111 


V? £V SO £ 




051127 


020 124 


* 


* 


/ WRT PROT/ 


2112 


n z w j »ip 














? 1 ' ? 


20 375 




053440 


052122 




* 


/ WRT ENABLED/ 


2111 


rt "5 rtl A a o 


Yi ** t *r * V) 


040516 


046 102 








2 1 1 5 


(A £1 A 1 n 


042105 












2116 


02041 3 


040 


042040 


044522 


EM6 : 


. ASC IZ 


/ DRIVE POWER LO/ 


2 1 1 7 




042526 


050040 


05 3517 








21 1 8 


020426 


051 1 05 


046040 


0001 17 








2119 


0204 3 4 


020040 


& 4 7 5 20 






.ASCIZ 


/ POWER UP/ 


2 1 2>* 


0204 42 


020 1 2 2 


0501 25 










2121 


0204 47 


040 


051440 






.ASCIZ 


/ SIN/ 


2 122 


020454 














2123 


020455 





05 14 40 


42505 


EM" • 


.ASCIZ 


/ SEEK OK/ 


2124 


20462 


201 1 3 


015517 


000 








2125 
















2126 










(DRIVE 


FLAGS FOP CONTROL PANEL TEST *2 


2127 










;bits 


15,14,13 


GIVE THE DRIVE NO (EX: 0.1,2,---) 


2128 










(BIT 7 


IS SET WHEN 'DRY' BIT IS SET FOR THE DRIVE CON LINE) 


2129 










;BIT 7 


IS CLEAR 


WHEN 'DRY' IS CLEAR (WHEN DRIVE IS IN LOAD/OFF 


2 1 30 










;DPIVE 


POWER IS 


CUT OFF) 


21 31 










(BIT 6 


IS SFT IF A DRIVE IS FOUND TO BE PRESENT (DRY) AT 


2132 










; THE BEGINING. 


1NLIKE BIT 7 THIS BIT DOES NOT GET SET OR 


213 3 










(CLEARED AS THE 


DRIVE CONDITIONS CHANGE. IT JUST INDICATES 


21 34 










J THAT 


THE DRIVE 


IS AVAILABLE FOR CHECKING. 


2135 










(BIT 


IS SET IF 'DPL' BIT GETS SET, IE: DRIVE POKER OFF 


?' '5 










;BIT » 


IS CLEARED WHEN DRIVE POWER IS ON. 


213' 










(BIT 1 


IS SET WHEN SEEK INCOMPLETE 'SIN' OCCURS. 












;BIT 1 


IS CLEAR 


WHEN SEEK IS OK, 


2139 










;BIT 2 


IS SET WHEN WRT PROT IS SET FROM CONSOLE. 


2 1 40 










(BIT 2 


IS CLEARED WHEN DRIVE IS WRITE ENABLED. 


















2142 




R204 70 








. EVEN 




2 J 4 3 


H20470 


000000 






DPIV0: 


.WORD 


3 :DRIVE FLAGS 


21 44 


020472 


000000 






DPivl : 


. WORD 





2145 


H20474 


000000 






DRJV2: 


. WORD 





21 46 


020476 


000000 






DRIV3: 


.WORD 





2147 


020500 


PW0000 






DPI V4 : 


.WORD 





21 48 


020502 


000000 






DRIV5: 


, WORD 





2149 


020504 


000000 






DRIVb: 


. WORD 





2150 


020506 


0000M0 






DRIV7: 


, WORD 





2151 
















2152 
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SEQ 0064 



2153 






2154 






21 55 






2156 






2157 






2158 






2159 






2160 






2161 






2162 






2163 






2lb4 






2165 






2166 






2167 






2168 






2169 






2170 






2171 






2172 


020510 


000240 


2173 


020512 


104 401 


2174 


020516 


000426 


2175 






2176 


020574 




2177 


020574 


1 0440! 


2178 


P20600 


000432 


2179 






2180 


020666 




2181 


020666 


104401 


7182 


020672 


000427 


2183 






2184 


020752 




2185 


020752 


104401 


2186 


020756 


005037 


2187 


^20762 


1 0441 


2188 


020764 


01 2601 


2189 


020766 


1 12100 


2190 


020770 


1627fetk) 


2191 


020774 


002766 


2192 


02077b 


022700 


2193 


021 002 


002763 


2194 


021 004 


000241 


2195 


021 006 


006000 


2196 


021 010 


P06000 


2)97 


021012 


006000 


2198 


021014 


006000 


21 99 


021016 


010037 


2200 


021022 


112100 


2 201 


021024 


001 41 2 


2202 


021026 


020027 


2233 


021032 


001 347 


2204 


021034 


10571 1 


2205 


021036 


001 345 


2^06 


021040 


042737 


2207 


021046 


005237 


2208 


021052 


013700 



021370 
021 364 



000U60 

000067 



. SBTTL HEAD ALIGNMENT ROUTINE 
; HEAD ALIGNMENT ROUTINE 

(THIS MAINTATNiNCF. ROUTINE Is HELPFUL IN HEAD ALIGNMENT. UPON ENTRY 
( THE QUESTION - DRIVE? - IS ASKED , THE USER SHOULD REPLY WITH THE 
(DRIVE NUMBER THAT IS TO BE ALIGNED. IF THE DRIVE IS AN RK-05F 
THE LETTER 'F' IS ADDED AS A SUFFIX, FOR SELECTING SURFACE 
PUT SW0=0, FOR SELECTING SURFACE 1 PUT SW0=1. SET SW1 =1 TO SELECT 
CYLINDER 64. SET SW1=0 TO SELECT CYLINDER 105. 
IF THE DRIVE IS AN RK-05F, CYLINDER 64 BECOMES CYLINDER 130 
Of THE EVEN DRIVE, AND CYLINDER 105 BECOMES CYLINDER 5 OF THE ODD DRIVE 
THE HEADS ARE PLACED ON THE SELECTED CYLINDER AND DATA IS READ 
CONTINUOSLY FROM THF CYLINDER (SECTOR 0) 

THE UPPER OR LOWER HEAD AND CYLINDER CAN BE SELECTED 
DYNAMICALLY, IE. THF PROGRAM DOES NOT HAVE TO BE STOPPED TO SELECT THE 
UPPER OR LOWER HEAD OR CYLINDER. 

IN ORDER TO SELFCT ANOTHER DRIVE, PUT ANY SWITCH FROM SW2 TO SW15 UP AND 
THE PROGRAM WILL AGAIN ASK THE QUESTION (DRIVE?) , 



SECT. 5: NOP 
TYPE 



((65$: 
64$: 



: ;67s: 
66$: 



; ;69$: 

68$: 

hpalgn: 



020000 

021364 
020470 



BR 

.ASCIZ 



. ASCIZ 

TYPE 
BP 

.ASCIZ 

type 

Ct,R 

PDLIN 

MOV 

MOVB 

SUB 

BLT 

C"*P 

BLT 

CLC 

ROR 

ROR 

ROR 

ROR 

MOV 

MOVB 

BEQ 

CMP 

BNE 

TSTB 

BNE 

BIC 

INC 

MOV 



,65$ ;STYPE ASCIZ STRING 

64$ ; J GET OVER THE ASCIZ 

<15><12>/SET SW0=0 FOR SURFACE 0, SW0=1 FOR SUR 1./ 

,67$ ((TYPE ASCIZ STRING 

66$ ; ; GET OVER THE ASCIZ 

<1 5><12>/SET SWlx0 FOP CYLINDER 105, SW1=1 FOR CYLINDER 64/ 

,69$ ((TYPE ASCIZ STRING 

68$ ; J GET OVER THE ASCIZ 

<15><12>/PUT ANY SW FROM 2-15 HI TO SELECT NEW DRVE/ 



,EM10 
FFLAG 

(SP)+,R1 
(Rl )+,R3 
#60, R0 
HDALGN 
#67, R0 
HDALGN 

R0 
R0 

R0 
R0 

R0,ORIV0 
(Rl )+,R0 
SS 

P0,*'F 

HDALGN 

(Rl) 

HOALGN 

#BIT13,DRIV0 

FFLAG 

DRIV0,R0 



1ASK FOR DRIVE # 

; FLAG FOR PK-05F 

( GET OPR INPUT 

(ADDR OF COMMAND STRING 

(FIRST CHAR 

;0 TO 7 

;T00 SMftLL 

;MUST BE 7 OR LESS 

(TOO BIG 



; ADDRESS OF DRIVE 

J NEXT INPUT CHAR 

) ALL DONE IF C.R. 

(IS IT F? 

JNO, SO ERROR 

(NEXT CHAR MUST BE C.R. 

! ELSE, ERROR 

(USE EVEN DRIVE IF RK-05F 
(SHOW F TYPE DRIVE 
(DRIVE ADDR TO R0 
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2209 


021056 


017737 


160056 


021366 




MOV 


BSWR, SWTCH 


1 HOLD SWITCHES 


2210 


021064 


042737 


177775 


021366 




BIC 


#177775, SWTCH 


(WANT SMI ONLY 


2211 


0211372 


001005 








BNE 


7S 


ISW1 SET, SO LOW CYLINDER 


2212 


021074 


005737 


021 364 






TST 


FFLAG 


[F DRIVE? 


2213 


021 100 


001402 








BEG 


7S 


(NO 


2214 


021 102 


052700 


020000 






BIS 


#BIT13,R0 


(ODD DRIVE IF HIGH TRACK OF F 


2215 


021106 


010077 


160264 




7s: 


MOV 


R0r 9RKDA 


[ ADDRESS DRIVE 


2216 


021112 


012777 


000017 


160250 




MOV 


«l7,8RKCS 


J WRITE PROTECT 


2217 


021120 


105777 


160244 




B $ I 


TSTB 


9RKCS 




2218 


021124 


100375 








BPL 


8$ 


(WAIT FOR DRIVE READY 


2219 


021126 


012777 


000001 


160234 




MOV 


#1, ORKCS 


(RESET CONTROLLER 


2220 


021134 


105777 


160230 




9$: 


TSTB 


ORKCS 




2221 


021140 


100375 








BPL 


96 


(WAIT FOR READY 


2222 


021142 


005737 


021 364 






TST 


FFLAG 


(F DRIVE? 


2223 


021146 


001410 








BEQ 


13$ 


(NO 


2224 


021 150 


012701 


000240 






MOV 


#5.»40,R1 


( TRACK 5 OF HIGH 


2225 


021154 


005737 


021366 






TST 


SWTCH 


(SW1 SET? 


2226 


021 160 


001412 








BEQ 


10$ 


(YES SO TEST TRACK 8 OF DRIVE 


2227 


021162 


062701 


010100 






ADD 


#130.»40,P1 


(TRACK 130. IF SW1 SET 


2228 


021166 


000407 








BR 


10$ 




222' 


021170 


012701 


004000 




13$: 


MOV 


#64.*40,R1 


(CYLINDER 64 IF WOT F 


2230 


021174 


005737 


021366 






TST 


SWTCH 


(SW1 SET? 


2231 


021200 


001002 








BNE 


10$ 


(YES, SO CYLINDER 64 


2232 


021202 


062701 


002440 






ADD 


#41 ,*40,R1 


(CYLINDER 105 


2233 


021206 


005777 


160156 




10S: 


TST 


ORKCS 


; ANY ERROR? 


2234 


021212 


100006 








BPL 


US 


(NO, CONTINUE 


2235 


021214 


012777 


000001 


160146 




MOV 


# 1 , ORKCS 


(RESET 


2236 


021222 


105777 


160142 




12(1 


TSTB 


ORKCS 




2237 


021226 


100375 








BPL 


12$ 


( WAIT FOR READY 


2236 


021230 


017702 


157704 




11$: 


MOV 


8SWR,R2 


(SWITCH REG TO R2 


2239 


021234 


042702 


177775 






BIC 


#177775, R2 


(SW1 ONLY 


2240 


021240 


020237 


021366 






CMP 


R2,SWTC« 


(ANY CHANGE SINCE LAST? 


2241 


021244 


001 302 








BNE 


5$ 


(YES, GO SET-UP ADDR AGAIN 


2242 


021246 


010077 


160124 




6SI 


MOV 


R0, ORKDA 


(ADDRESS THE DRIVE 


2243 


021252 


012777 


000017 


1601 10 




MOV 


#17, ORKCS 


(WRITE PROTECT THE DRIVE 


2244 


021260 


105777 


160104 






TSTB 


ORKCS 


(WAIT FOR CONTROL RDY 


2245 


021 264 


100375 








BPL 


.-4 




2246 


021266 


042700 


000020 




4SI 


BIC 


#20, R0 


(CLEAR TRACK ADDR 


2247 


021272 


032777 


000001 


157640 




BIT 


#1,8SWR 


( SW0 SET? 


2248 


021 300 


001402 








BEQ 


2$ 


(NO TEST TRACK 


2249 


021302 


052700 


000020 






BIS 


#20, R0 


(TEST TRACK 1 


2250 


021 306 


042700 


01 7740 




2S t 


BIC 


# 1 7740, R0 


(CLEAR CYLINDER ADDR 


2251 


021312 


050100 








BIS 


R1,R0 


(PUT CYLINDER ADDR IN ADDR 


2252 


021 314 


010077 


160056 






MOV 


P0, ORKDA 


; ADRES THE DRIVE 


2253 


021320 


012777 


177400 


160044 




MOV 


#-400,8RKWC 


(READ 1 SECTOR 


2254 


021326 


012777 


007336 


160040 




MOV 


•RDBUFF, ORKBA 


(INTO THIS BUFFER 


2255 


021334 


012777 


000005 


160026 




MOV 


#5, ORKCS 


(READ, GO 


2256 
2257 


021342 


105777 


160022 




3S! 


TSTB 


ORKCS 


(DONE? 


2258 


021346 


100375 








BPL 


3$ 


(NO 


2259 


















2260 


021350 


032777 


177774 


157562 




BIT 


#177774, BSWR 


(EXIT OUT? 


2261 


021356 


001713 








BEQ 


10$ 


(NO, CONTINUE ON THIS DRIVE 


2262 


021360 


000137 


020752 






JMP 


HDALGN 


; YES, GET NEW DRIVE 


2263 


















2264 


021364 


000000 






FFLAG: 
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2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
22R1 
2282 
2283 
2284 



021366 
021 370 

021 376 



000000 

005015 051104 
037505 001* 



SWTCH: 

EMlu: 



.ASCIZ <!5><12>/DRIVE?/ 



. SBTTL DISK POWER FAILURE TEST 
:(DISK)POWFR FAILURE (DURING DISK WRITE) TEST 

(THIS TEST CHECKS THAT THE INFORMATION WRITTEN ON THE DISK IS 
[ NOT DESTROYED WHEN THE DISK SENSES A LOSS OF POWER WHILE DOING A WR] 
[AND RETRACTS THE HEADS. UPON ENTRY THE PROGRAM FINDS OUT THE 
(FIRST AVAILABLE DRIVE INDICATES IT (DRIVE XX) AND PROCEEDS TO TEST. 
(CYLINDERS TO 15 ARE WRITTEN WITH UNIQUE PATTERNS, THEN THE HEADS 
{ ARE POSITIONED ON CYLINDER 10 (DECIMAL) AND A MESSAGE (DROP 
(POWER) IS GIVEN. AFTER RECEIVING THIS MESSAGE THE USER SHOULD 
(DROP POWER FROM THE DRIVE. ON SENSING A LOSS OF POWER, THE 
; PROGRAM ASKS THE USER TO PUT BACK THE POWER. THE ERRORS (DPL) 
(ARE CLEARED AND A WRITE-CHECK IS PERFORMED TO CHECK IF THE 
(UNIQUE PATTERNS ON THE DISK (CYLINDERS 0-9 AND 11-15) ARE STILt 



2285 








(THERE. 


IF NOT 


A WRITE CHECK 


ERROR IS REPORTED. 


2286 




021402 






.EVEN 






2287 
















2288 


021402 


005000 




SECT. 6: 


CLR 


R0 


(INITIALIZE DRIVE # 


2289 


021404 


005037 


020470 




CLR 


DRIV0 




2290 


021410 


010077 


157762 


8$: 


MOV 


R0r ORKDA 


(IS IT PRESENT? 


2291 


021414 


105777 


157744 




TSTB 


ORKDS 


; IF NOT SKIP 


2292 


021 420 


100406 






BMI 


9$ 




2293 


021422 


005237 


020470 


10$: 


INC 


DRIV0 




2294 


021426 


062700 


020000 




ADD 


#20000, R0 




2295 


021432 


001366 






BNE 


8$ 




2296 


021434 


000762 






BR 


SECT, 6 




2297 


021436 


104401 


020324 


9$ : 


TYPE 


.EMI 




2298 


021442 


013746 


020470 




MOV 


DRIV0,-(SP) 


[GET DRIVE # 


2299 


021446 


104402 






TYPOC 






2300 


021450 


012777 


000001 157712 




MOV 


#1 , ORKCS 


(CONTROL RESET 


2301 


021456 


105777 


157706 




TSTB 


ORKCS 




2302 


021462 


100375 






BPL 


.-4 




2303 


021464 


005005 






CLR 


R5 


[INITIALIZE PATTERN TO BE WRITTEN 


2304 














[0 ON CYL 0, 1 ON CYL 1, ETC 


2305 


021466 


013701 


001376 




MOV 


RKDA , Rl 




2306 


021472 


013702 


001372 




MOV 


RKWCR2 




2307 


021476 


013703 


001374 




MOV 


RKBA.R3 




2308 


021502 


013704 


001370 




MOV 


RKCS,R4 




2 309 


021506 


010011 






MOV 


R0,OR1 




2310 


021510 


010537 


022046 


1$: 


MOV 


R5, BUFR 


[FILL THE PATTER IN DATA BUFFER, 


2311 


021514 


012713 


022046 




MOV 


•BUFR.OR3 


1 BUS ADRES 


2312 


021520 


012712 


164000 




MOV 


#-14000, 0R2 


|WRITE 1 CYL (256X12X2 WORDS) 


2313 


021524 


012714 


004003 




MOV 


#4003, 0R4 


(WRITE, GO, IBA SET 


2314 


021530 


105714 






TSTB 


0P4 


(WAIT FOR CONTROL READY 


2315 


021532 


100376 






BPL 


.-2 




2316 














[DONE 


2317 


02)534 


005205 






INC 


R5 


[WRITTEN ALL 15 CYLINDERS? 


2318 


021536 


020527 


000020 




CMP 


R5,«2S» 


[IF NOT, GO BAK 


2319 


021542 


001 362 






BNE 


1$ 
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SEQ 0067 



2121 


021544 


010005 








MOV 


R0, R5 


;drive # 


2322 


021546 


052705 


000500 






BIS 


#500, R5 


;cyl 10 


2323 


021552 


012737 


000012 


022046 




MOV 


* 1 2 r BUFR 


JPATERN TO BE WRITTEN 


2324 


021560 


01051 1 








MOV 


R5.SR1 


SADRES THE DISK 


2325 


021562 


01271 2 


164000 






MOV 


#-1 4000, SP2 


JWORD COUNT* 1 CYLINDER 


2 376 


021566 


012713 


022046 






MOV 


#BUFR,8R3 


;BUS ADRES 


2327 


021572 


012714 


004003 






MOV 


#4003, »R4 


;WRITE, GO, IBA 


2328 


021576 


032777 


000100 


157560 


2S! 


BIT 


»RWS,apKDS 


SWAIT FOR THE HEADS TO SETTLE 


2329 


021604 


001774 








BED. 


2$ 


;ON CYL 10 


2 3 30 


021606 


104401 


021614 






TYPE 


,65S 


;?TYPE ASCIZ STRING 


2331 


021612 


000406 








8R 


64$ 


f ) GET OVER THE ASCIZ 


2 332 










! J65S : 


.ASCIZ 


/DROP POWER/ 




2 3 33 


021630 








64S: 








2 334 


















2335 


021630 


000407 








BR 


5$ 




2 336 


021632 


010511 






as: 


MOV 


R5,faRl 


!ADRES THE DISK 


2 337 


021634 


012712 


1 64000 






MOV 


t-14000,3R2 


5 WORD COUNT* 1 CYLINDER 


2338 


021640 


012713 


022046 






MOV 


#BUFR,BR3 


;BUS ADRES 


23 39 


021644 


012714 


004003 






MOV 


#4003, 0R4 


;*SRITE, GO, IBA 


2344 


021650 


105714 






5s: 


TSTB 


9R4 


!WAIT FOR CONTROL READY 


2341 


021652 


100376 








BPL 


.-2 




2342 


021654 


005714 








TST 


»R4 


5 WAIT FOR DRIVE POWER TO GO DOWN, 


2343 
















JOTHERWISE. KEEP ON WRITING ON CYL 


2344 


02165b 


1 00365 








BPI, 


3$ 




2345 
















;IF DRIVE POWER LOSS WAS SENSED, 


2346 
















SASK TO PUT POWER ON. 


2347 


021660 


104401 


021666 






TYPE 


.67$ 


; t TYPE ASCIZ STRING 


2348 


021664 


000406 








BR 


66$ 


; : GET OVER THE ASCIZ 


2319 










r :67S: 


. ASCIZ 


<15><12>/POWER 


ON/ 


2350 


021702 








66S: 








2351 


021702 


105777 


157456 






TSTB 


pRKDS 


;I«AIT FOR DRIVE READY 


2352 


021706 


100375 








BPL 


.-4 




2353 


021710 


012714 


000001 






MOV 


#1,BR4 


SCONTROL RESET, CLEAR ERROR 


2354 


021714 


105714 








TSTB 


9R4 




2355 


021716 


100376 








BPL 


.-2 




2356 


021720 


010077 


157452 






MOV 


R0> 8RKDA 




2357 


021724 


005005 








CLR 


R5 


J INITIALIZE PATTERN 


2358 


021726 


010537 


022046 




66: 


MOV 


R5,BUFR 




2359 


02173? 


012713 


022046 






MOV 


#BUFR,!SR3 




2360 


02) 736 


012712 


1 64000 






MOV 


#-14000, BR2 




2361 


021742 


01 2714 


004007 






MOV 


t 1007, 0R4 


;WRITE CHECK, GO, IBA 


2362 


021746 


105714 








TSTB 


S>R4 




2363 


021750 


100376 








BPL 


.-2 




2364 


















2365 


021 752 


005714 








TST 


0R4 


:any ERROR? 


2366 


021754 


1 00023 








BPL 


7$ 


;no 


2367 


021756 


1 04401 


021 764 






TYPE 


,69$ 


;>TYPE ASCIZ STRING 


2 368 


021762 


02041(3 








BR 


685 


!|GET OVER THE ASCIZ 


2369 










: ;69S: 


.ASCIZ 


<15><12>/EPROP 


ON PWR-UP, RKDAB/ 


2370 


022020 








68$: 








2371 


022020 


01 1 146 








MOV 


»R1,«CSP) 




2 3 72 


022022 


104402 








TYPOC 






2 37 3 


022024 


005205 






7s: 


inc 


R5 




2 374 


022026 


020527 


00001 2 






CMP 


R5,#12 


(CYLINDER 10 1 


2375 


022032 


001774 








BEQ 


7$ 


; BR IF YES, INCREMENT AGAIN 


2376 


022034 


020527 


1100020 






CMP 


R5,#20 
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2 377 


022040 


001 332 






bne 


6$ 




2378 
















2379 


322042 


<*001 37 


021422 




JMP 


10$ 




2380 
















2381 


072046 


000000 




bufr: 


.WORD 







2382 
















2383 
















23P4 








.SBTTL 


TYPE 


ROUTINE 




2385 
















2 356 








• [#»•*»#***♦»♦•»***»#»»*»»*#*♦*#*»#*#»*♦*»*»»#*»**»**»#***#**»♦»#» 


2387 








(♦ROUTINE TO 


TYPE ASCI?- MESSAGE. 


MESSAGE MUST TERMINATE WITH A » BYTE. 


2388 








j«THE ROUTINE 


WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


23B9 








;*N0TE1 ! 




S NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER 


2390 








;*N0T£2: 




SPILLS CONTAINS 


THE NUMBER OF FILLER CHARACTERS REQUIRED. 


7391 








j»N0TE.3: 




SPILL: CONTAINS 


THE CHARACTER TO FILL AFTER. 


2392 








;« 








2393 








:*CALL: 








2 39 1 








;*1) USING A 


TRAP INSTRUCTION 




2395 








• * 


TYPE 


, MESADR 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


2396 








• *0P 








? 397 










TYPE 






2398 








f * 


MESADR 




2399 
















2400 
















2401 


022050 


105737 


001 1 57 


stype: 


TSTB 


STPFLG 


JUS THERE A TERMINAL? 


2402 


022054 


1 00002 






BPL 


IS 


JJBR IF YES 


2433 


022056 


000000 






HALT 




;:halt here if no terminal 


24K t 


022.360 


000407 






BR 


3S 


; ;LEAVE 


2405 


022.562 


01 3046 




is: 


MOV 


R0,-CSP) 


((SAVE R0 


2406 


022064 


01 7600 


000002 




MOV 


92(SP),R0 


; ; GET ADDRESS OF ASCIZ STRING 


2107 


022070 


1 12046 




2$: 


MOVB 


(P0)+,-(SP) 


;;PUSH CHARACTER TO BE TYPED ONTO STACK 


2408 


022072 


001 005 






BNE 


4S 


;;BR IF IT ISN'T THE TERMINATOR 


?40i 


022074 


005726 






TST 


(SP) + 


;)IF TERMINATOR POP IT OFF THE STACK 


2110 


022076 


01 2600 




60s: 


MOV 


CSP)+,R0 


; ; RESTORE P0 


241 1 


022100 


062716 


000002 


is: 


ADD 


#2, CSP) 


;jADJUST RETURN PC 


2412 


022104 


000002 






RTI 




: ; RETURN 


241 3 


022106 


122716 


00001 1 


4S: 


CMPB 


#HT, (SP) 


((BRANCH IF <HT> 


2 4 1 4 


0221 12 


001 430 






BEQ 


8$ 




24 1 5 


022114 


122716 


000200 




CMPB 


#CRLF, CSP) 


; (BRANCH IF NOT <CRLF> 


2416 


022120 


001 006 






BNE 


5$ 




2417 


022122 


00572b 






TST 


CSP)t 


;>POP <CR><LF> EQUIV 


2418 


022124 


104401 






TYPE 




; J TYPE A CR AND LF 


2419 


022126 


00J 161 






SCRLF 






2420 


022130 


105037 


022264 




CLRB 


SCHARCNT 


; 1 CLEAR CHARACTER COUNT 


2421 


022134 


000755 








2$ 


; ( GET NEXT CHARACTER 


2422 


022136 


004737 


022220 


5$: 


JSR 


PC.STYPEC 


((GO TYPE THIS CHARACTER 


2423 


022142 


123726 


001 156 


6$: 


CMPB 


SFTLLC, CSP)+ 


;;IS IT TIME FOR FILLER CHARS, ? 


24?4 


022146 


001 350 






BNE 


2$ 


j;IF NO GO GET NEXT CHAR, 


2425 


022150 


013746 


001 154 




MOV 


SNUI,L,-(SP) 


; ; GET # OF FILLER CHARS. NEEDED 


2126 














( ( AND THE NULL CHAR. 


2427 


022154 


105366 


000001 


7$S 


DF.CP 


1 (SP) 


::does a null need to be typed? 


2428 


022160 


002770 






BLT 


6$ 


;;BR IF NO--GO POP THE NULL OFF OF STACK 


2129 


022162 


004737 


022220 




JSR 


PCSTYPEC 


((GO TYPE A NULL 


2430 


022166 


105337 


022264 




DECB 


SCHARCNT 


;;D0 NOT COUNT AS A COUNT 


2431 


022172 


000770 






BR 


7$ 


; (LOOP 


2432 
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SEQ 0069 



2433 






2434 






2435 


022174 


1 12716 


2436 


022200 


004737 


2437 


022204 


132737 


2436 


022212 


001 372 


2439 


022214 


005726 


2440 


022216 


000724 


2441 


022220 


105777 


2442 


022224 


100375 


2443 


022226 


116677 


2444 


022234 


1 22766 


2445 


022242 


001003 


2446 


022244 


1 05037 


2447 


022250 


000406 


2448 


022252 


122766 


2449 


022260 


00 1 402 


2450 


022262 


105227 


245 1 


022264 


000000 


2452 


022266 


000207 


2453 






2454 






2455 






2456 






2457 






2458 






2459 






2460 












2462 






2463 






2464 






2465 






2466 






2467 






2468 






2 469 






2170 






2471 












247 3 






2474 






2475 












2477 






2478 






2479 


022270 


017646 


2480 


022274 


1 16637 


2481 


022302 


1 12637 


2482 


022306 


062716 


2483 


022312 


000406 


2484 


022314 


112737 


2485 


022322 


112737 


2486 


022330 


112737 


2*87 


022336 


010346 


2488 


022340 


010446 



000040 
022220 
000007 



000002 
000015 



022264 
000012 



156716 

000002 



000000 
000001 
022515 
000002 

000001 
000006 
000005 



02251 3 
022515 
022512 



[HORIZONTAL TAB 


PROCESSOR 




8$; 


HOV8 


»' ,(SP) 


! 1 REPLACE TAB WITH SPACE 


9$: 


JSR 


PC> STYPEC 


[[TYPE A SPACE 




BITB 


I7,SCHARCNT 


; ( BRANCH IF NOT AT 




BNE 


9$ 


; | TAB STOP 




T8T 


CSP) * 


[[POP SPACE OFF STACK 




BR 


2S 


; | GET NEXT CHARACTER 


STYPECi 


TSTB 


sstps 


[[WAIT UNTIL PRINTER IS READY 




BPL 


STYPEC 






HOVB 


2(SP) ,HSTPB 


[[LOAD CHAR TO BE TYPED INTO DATA 




CHPB 


•CR.2CSP) 


[[IS CHARACTER A CARRIAGE RETURN? 




BNE 


IS 


[ J BRANCH IF NO 




CLRB 


8CHARCNT 


[[YES--CLEAR CHARACTER COUNT 




BR 


STYPEX 


[ [EXIT 


1$: 


CMPB 


#LF,2(SP) 


[[IS CHARACTER A LINE FEED? 




BEO 


STYPEX 


; [ BRANCH IF YES 




INCB 


CPO + 


[(COUNT THE CHARACTER 


SCHAPCNT! .WORD 





; I CHARACTER COUNT STORAGE 


STYPEXt 


RTS 


PC 




.SBTTL 


BINARY 


TO OCTAL (ASCII) 


AND TYPE 



[###»»#*##***#♦•»»»###»#*»*■***#*•»*#»*»♦»»#»»*•♦»»♦•»***♦*»•»*•» 

•this routine is used to change a 16-bit binary number to a 6-diglt 
♦octal uscii) number and type it. 

• stypos — enter here to setup suppress zeros and number of digits to type 
*call: 

* mov num,-(sp) ; | number to be typed 

* typos [(call for typeout 

* , byte n [|n = 1 to 6 for number of digits to type 

* . BYTE M ; j M=l OR 

# [d*TYPE LEADING ZEROS 

» IJ0SSUPPRESS LEADING ZEROS 

* 

• STYPON — - ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
•STYPOS OR STYPOC 

•CALL: 

• MOV NUM,-(SP) [ [ NUMBER TO BE TYPED 
» TYPON [[CALL FOR TYPEOUT 

• 

• STYPOC— ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
•CALL: 

NUM,-(SP) 



HOV 
TYPOC 

MOV 

MOVB 

MoVB 

ADD 

BR 

MOVB 

MOVB 

MOVB 

MOV 

MOV 



8(SP).-(SP) 

1(SP).S»F1LL 

(SP)+,$OMODF+l 

»2, (SP) 

STYPON 

M.S0FILL 

#6,SOMODE+l 

#5»SOCNT 

P3,-(SP) 

P4,-(SP) 



I NUMBER TO BE TYPED 
; CALL FOR TYPEOUT 

SPICKUP THE MODE 

I LOAD ZERO FILL SWITCH 

[ NUMBER OF DIGITS TO TYPE 

[ ADJUST RETURN ADDRESS 

JSET THE ZERO FILL SWITCH 
;SET FOR SIX(6) DIGITS 
;SET THE ITERATION COUNT 
;SAVE R3 
)SAVE R4 



INDEC 


-11-DZRK3 


-D 


MACY1 1 


27(1006) 04-OCT 


-76 14: 


01 PAGE 48 




Rkid. 


Pll 22 


-SEP-76 


10:10 


BINARY 


TO OCTAL 


(ASCII) AND TYPE 


24fi« 


022342 


0!05*6 






MOV 


R5,-(SP) 


((SAVE R5 


2490 


022344 


113704 


022515 




MOVB 


SOMODE+1 i R4 


[ 1 GET THE NUMBER OF DIGITS TO TYPE 


2491 


022350 


005404 






NEG 


P4 




2492 


022352 


062704 


000006 




ADD 


*6,R4 


;t SUBTRACT IT FOR MAX. ALLOWED 


2493 


022356 


110437 


02251 4 




MOVB 


R4,S0M0DE 


[[SAVE IT FOR USE 


2494 


022362 


113704 


02251 3 




MOVB 


S0FILLf R4 


; | GET THE ZERO FILL SWITCH 


2495 


022366 


016605 


000012 




MOV 


12(SP)»P5 


[[PICKUP THE INPUT NUMBER 


2496 


022372 


005003 






CLR 


R3 


[[CLEAR THE OUTPUT WORD 


2497 


022374 


006105 




1SI 


POL 


P5 


[ [ROTATE MSB INTO "C" 


2498 


022376 


000404 






BR 


3$ 


([GO DO MSB 


2499 


022400 


006105 




2$: 


ROL 


R5 


1 1 FORM THIS DIGIT 


2500 


022402 


006105 






ROL 


R5 




2501 


022404 


006105 






ROL 


R5 




2502 


022406 


010503 






MOV 


R5#R3 




2503 


022410 


006103 




3SI 


POL 


R3 


J (GET LSB OF THIS DIGIT 


2504 


022412 


105337 


02251 4 




DECB 


SOMODE 


[[TYPE THIS DIGIT? 


2505 


022416 


100016 






BPL 


7S 


[ ; BR IF NO 


2506 


022420 


042703 


1 77770 




BIC 


1177770. R3 


[ 1 GET RID OF JUNK 


2507 


022424 


001002 






BNE 


43 


;;TEST FOR 


2508 


022426 


005704 






TST 


R4 


! (SUPPRESS THIS 0? 


2509 


022430 


001403 






BEQ 


5S 


J (BR IF YES 


2510 


022432 


005204 




4s: 


INC 


R4 


((DON'T SUPPRESS ANYMORE 0'S 


2511 


022434 


052703 


000060 




BIS 


*'0,R3 


((MAKE THIS DIGIT ASCII 


2512 


022440 


052703 


000040 


5$: 


BIS 


• ' ,R3 


([HAKE ASCII IF NOT ALREADY 


251 3 


022444 


110337 


022510 




MOVB 


R3,Bt 


([SAVE FOR TYPING 


2514 


022450 


104401 


022510 




TYPE 


.8$ 


([GO TYPE THIS DIGIT 


2515 


022454 


105337 


02251 2 


7SI 


DECB 


SOCNT 


[ [COUNT BY 1 


2516 


022460 


003347 






BGT 


2« 


[[BR IF MORE TO DO 


2517 


022462 


002402 






BLT 


6$ 


[ 1 BR IF DONE 


2518 


022464 


005204 






INC 


R4 


; [INSURE LAST DIGIT ISN'T A BLANK 


2519 


022466 


000744 






BR 


2$ 


j, GO DO THE LAST DIGIT 


2520 


022470 


012605 




61: 


MOV 


(SP)+,R5 


f [RESTORE R5 


2521 


022472 


012604 






MOV 


(SP)+,P4 


[ [ RESTORE R4 


2522 


022474 


012603 






MOV 


(SP)+,R3 


[ [ RESTORE R3 ' 


2523 


022476 


016666 


000002 


000004 


MOV 


2(SP),4(SP) 


([SET THE STACK FOR RETURNING 


2524 


022504 


012616 






MOV 


( SP ) + » ( SP) 




2525 


022506 


000002 






PTI 




[ [RETURN 


2526 


022510 


000 




8$: 


. BYTE 





[ [ STORAGE FOR ASCII DIGIT 


2527 


022511 


000 






. BYTE 





; [TERMINATOR FOR TYPE ROUTINE 


2528 


022512 


000 




SOCNT: 


. BYTE 





[[OCTAL DIGIT COUNTER 


2529 


022513 


000 




S0FILL: 


.BYTE 





( [ ZERO FILL SWITCH 


2530 


022514 


000000 




SOMODEl 


.WORD 





[ [ NUMBER OF DIGITS TO TYPE 


2531 








. SBTTL 


TTY INPUT ROUTINE 




2532 
















2533 








t J #»#»»»#»»#»*»*♦*»»»#••»»»•*** 


»»**»»»♦»*»#»*»»»»*»*»**#•♦##*#«*# 


2534 








■ ENABL 


LSB 






2535 


022516 


000000 




stkcnt: 


.WORD 





[(NUMBER OF ITEMS IN QUEUE 


2536 


022520 


000000 




8TKQIN: 


. WORD 





[[INPUT POINTER 


2537 


022522 


000000 




STKOOUT: .WORD 





[[OUTPUT POINTER 


2538 


022524 


000001 




STKQSRTl . BLKB 


1 


,• [ TTY KEYBOARD QUEUE 


2539 




022525 




STKQENDa. 






2540 




022526 




■ EVEN 








2541 
















2542 








I»TK INITIALIZE 


ROUTINE 




2543 








.••THIS 


ROUTINE 


WILL INITIALIZE 


THE TTY KEYBOARD INPUT QUEUE 


2544 








[•SETUP 


THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
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SEQ 0071 



2545 






















25*6 










(•CALL: 










2547 










• * 




JSR 




PCSTKINT 




2548 










»* 




RETURN 






2549 






















2553 


022526 


005037 


022516 




STKINT: 


CLP 




STKCNT 


(CLEAR COUNT OF ITEMS IN QUEUE 


2551 


022532 


012737 


022524 


022520 






MOV 




*STKQSRT,STKQIN 


iMOVE THE STARTING ADDRESS OF THE 


2552 


022540 


013737 


022520 


022522 






MOV 




STkQIN.STKQOUT 


(QUEUE INTO THE INPUT & OUTPUT POINTERS. 


2553 


022546 


012737 


022576 


000060 






MOV 




•STKSRV, BiTKVEC 


JINITIALIZE THE KEYBOARD VECTOR 


2554 


022554 


012737 


000200 


000062 






MOV 




*200,a#TKVEC+2 


("BR" LEVEL 4 


2555 


022562 


005777 


156360 








TST 




BSTKB 


; CLEAR DONE FLAG 


2556 


022566 


012777 


000100 


156350 






MOV 




#100,BSTKS 


; ENABLE TTY KEYBOARD INTERRUPT 


2557 


022574 


000207 










RTS 




PC 


S RETURN TO CALLER 


2558 






















2559 










;*tk 


SERVICE 


ROUTINE 




2560 










:*this 


ROUTINE 


WILL SERVICE THE TTY KEYBOARD INTERRUPT 


2561 










;*RY 


READING 


THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


2562 










(•IT 


IN 


THE 


3UEUE. 




256 3 






















2564 


022576 


117746 


156344 




STKSRV: 


Move 




aSTKP,-CSP) 


SPICKUP THE CHARACTER 


2565 


022602 


042716 


1 7760") 








BIC 




#"C1 77, CSP) 


;STRIP THE JUNK 


2566 


022606 


021627 


000007 




is: 




CMP 




CSP), #7 


(IS IT A CONTROL G? 


2567 


022612 


001004 










BNE 




2S 


; BRANCH IF NO 


2568 


022614 


022737 


0001 76 


001 140 






CMP 




»SWREG,SWP 


(IS SOFT-SWR SELECTED? 


2569 


022622 


001500 










BEO 




6$ 


(GO TO SwP CHANGE 


2570 






















2571 


022624 








25 : 












2572 


022624 


022737 


000001 


02251 6 






CMP 




* 1 > STKCNT 


J IS THE QUEUE FULL? 


2573 


022632 


001004 










BNE 




3$ 


J BRANCH IF NO 


2574 


022634 


104401 


023646 








TYPE 




, $ BELL 


(RING THE TTY BELL 


2575 


022640 


005726 










TST 




CSP) + 


jCLEAN CHARACTER OFF OF STACK 


2576 


022642 


000451 










BR 




5S 


(EXIT 


2577 


022644 


021627 


000023 




3s: 




CMp 




CSP) , »23 


(IS IT A CONTROL-S? 


2578 


022650 


001021 










BNE 




32S 


J BRANCH IF NO 


2579 


022652 


005077 


156266 








CLR 




SSTKS 


; DISABLE TTY KEYBOARD INTERRUPTS 


7580 


022656 


005726 










TST 




(SP) + 


JCLEAN CHAR OFF STACK 


2581 


022660 


105777 


156260 




3is: 




TSTB 




e$TKS 


(WAIT FOR A CHAR 


2582 


022664 


100375 










BP1, 




31S 


(LOOP UNTIL ITS THERE 


258 3 


022666 


1 17746 


1 56254 








MOVB 




8STKB,-(SP) 


; GET THE CHARACTER 


258 4 


022672 


042716 


177600 








BIC 




«-C177, CSP) 


; MAKE IT 7-BIT ASCII 


7585 


022676 


022627 


000021 








CMP 




tSP)+,#21 


;IS IT A CONTROL-a? 


2586 


022702 


001 366 










BNE 




31S 


J BRANCH IF NO 


2587 


022704 


012777 


000100 


156232 






MOV 




#100,<a$TKS 


( REENABLE TTY KEYBOARD INTERRUPTS 


2588 


022712 


000002 










RTI 






J RETURN 


2589 


022714 


005237 


022516 




32$: 




INC 




STKCNT 


(COUNT THIS CHARACTER 


2590 


022720 


021627 


000140 








CMp 




tSP),«140 


J IS IT UPPER CASE? 


7591 


022774 


002405 










BLT 




4$ 


(BRANCH IF YES 


2592 


022726 


021627 


0001 75 








CMP 




CSP). #175 


JIS IT A SPEC 1 AL CHAR? 


2593 


022732 


003002 










6GT 




4S 


J BRANCH IF YES 


2594 


022734 


042716 


000040 








BIC 




#40, CSP) 


; MAKE IT UPPER CASE 


2595 


022740 


112677 


177554 




4S ! 




MOVB 




CSP)+,eSTKQIN 


; AND PUT IT IN QUEUE 


2596 


022744 


005237 


022520 








INC 




STKOIN 


( UPDATE THE POINTER 


2597 


022750 


023727 


022570 


022525 






CMP 




STKQIN, KSTKQENO 


(GO OFF THE END? 


2598 


022756 


001003 










BNE 




5S 


I BRANCH IF NO 


2599 


022760 


012737 


022574 


022520 






MOV 




#STKQSRT,STKQTN 


; RESET THE POINTER 


2600 


022766 


000002 






5S: 




RTI 






i RETURN 
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2601 
2642 

260 3 
2604 
2605 
2606 
2607 
2608 
2609 
2610 

261 1 
2612 
7613 
761 4 
2bl5 
261 6 
261 7 
261 8 
7o1 9 
2620 
7671 
2622 
2623 
26?4 
2625 
2626 
2627 
2628 
2629 
2t> 30 
2o31 
2632 
2633 
2ol4 
2635 
76 36 
2o 37 
76 38 
2639 
2640 
2611 
2642 
2643 
7644 
2n »5 
2646 
7647 
7648 
7649 
7650 
7651 
2652 
2653 
2654 
2655 
2656 



; • »***♦*»#»♦♦»*•«»*****»***»»♦***#**♦♦»»*♦*♦♦«♦♦«»♦**♦♦♦*♦*»*•**» 

(•SOFTWARE SWITCH REGISTER CHANGE ROUTINE . 
{•ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
;*SERVICF THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
;»CALL WHEN OPERATING IN TTY INTERRUPT MODE, 



022770 


022737 


000176 


001 140 


sckswp: 


CMP 


*SWREG,SWR 


)IS THE SOFT-SWR SELECTED 


027776 


001 104 








BNE 


15S 


;EXIT IF NOT 


023000 


105777 


156140 






TSTB 


aSTKS 


;IS A CHAP WAITING? 


023004 


100101 








BPL 


15S 


;IF NOT, EXIT 


073006 


117746 


156134 






MOVB 


a$TKB,-CSP) 


(YES 


023012 


042716 


1 77b0B 






BIC 


**C177, CSP) 


; MAKE IT 7-SIT ASCII 


023016 


021627 


000007 






CMP 


CSP), #7 


;IS IT A CONTROL-G? 


023022 


001 300 








BNF 


2$ 


:IF NOT, PUT IT IN THE TTY QUEUE 
















; AND EXIT 










; !»»♦**»»»»♦»»*»»*»»»•*•*»»»*»**♦♦»»»*»»»♦•♦»•♦»*♦»»»♦«••»*»••*•* 










{•CONTROL IS 


PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 










(♦ROUTINE OR 


FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 










;*CONTROL-G BEING TYPED, AND THE 


SOFTWARE SWITCH REGISTER BEING SELECTED. 


023024 


1 23727 


001 1 34 


000001 


6S: 


CMPB 


SAUTOB,»l 


J ARE WE RUNNING IN AUTO-MODE? 


023032 


001 674 








BEQ 


28 


1 BRANCH IF YES 


023034 


005726 








TST 


CSP) + 


; CLEAR CONTPOL-G OFF STACK 


023036 


004737 


022576 






JSR 


PCSTKINT 


; FLUSH THE TTY INPUT QUEUE 


1123042 


005377 


156W76 






CLR 


B$TKS 


; DISABLE TTY KEYBOARD INTERRUPTS 


023046 


1 12737 


000001 


001 1 35 




MOVB 


* 1 , S INTAG 


;SET INTERRUPT MODE INDICATOR 


023054 


1 04401 


023657 






TYPE 


, SCNTLG 


(ECHO THE CONTROL-G C*G) 


023060 


104401 


023664 




sgtswr: 


TYPE 


. SMSWR 


! TYPE CURRENT CONTENTS 


023064 


01 3746 


0001 76 






MOV 


SWREC-CSP) 


; SAVE SWREG FOR TYPEOUT 


023070 


104402 








TYPOC 




;GO TYPE— OCTAL ASCIICALL DIGITS) 


023072 


1 044/1 


023675 






TYPE 


, SMNEW 


(PROMPT FOR NEW SWR 


023076 


005046 






19s: 


CLR 


-CSP) 


(CLEAR COUNTER 


023100 


005046 








CLR 


-CSP) 


( THE NEW SWR 


023102 


105777 


156036 




7s: 


TSTB 


BSTKS 


(CHAR THERE? 


023106 


100375 








BPL 


7S 


(IF NOT TRY AGAIN 


023110 


117746 


156032 






MOVB 


BSTKB, -CSP) 


(PICK UP CHAR 


023114 


042716 


177600 






BIC 


•-C177, CSP) 


j make it 7-bit ascii 


023120 


021627 


000025 




9s: 


CMP 


CSP),«25 


(IS IT A CONTROL-U? 


023124 


001005 








BNE 


10$ 


(BRANCH IF NOT 


023126 


1 04 40 i 


023652 






TYPE 


,SCnTlU 


(YES, ECHO CONTROL"" C"U5 


0231 32 


062706 


000006 




20S : 


ADD 


>6,SP 


(IGNORE PREVIOUS INPUT 


023136 


00075 7 








BP 


19S 


(LET'S TRY IT AGAIN 


023140 


021627 


00001 5 




10s : 


CMP 


CSP)»*15 


(IS IT A <CR>? 


023114 


001 022 








BNE 


16$ 


( BRANCH IF NO 


023146 


005766 


000004 






TST 


4 C SP) 


(YES, IS IT THE FIRST CHAR? 


023152 


001 403 








BEO 


11S 


(BRANCH IF YES 


023154 


016677 


000002 


155756 




MOV 


2(SP),BSWR 


(SAVE NEW SWR 


023162 


062706 


000006 




lis: 


ADD 


»6,SP 


■(CLEAR UP STACK 


023166 


104401 


001 161 




14S: 


TYPE 


,SCRLF 


•(ECHO <CR> AND <LF> 
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SEQ 0073 



2657 


023172 


123727 


001135 


000001 




CMPB 


SINTAG, # 1 


; IRE-ENABLE TTY KBD INTERRUPTS? 


2658 


023200 


001003 








BNE 


15S 


; ! BRANCH IF NOT 


2659 


023202 


012777 


000100 


155734 




MOV 


«100,0(TKS 


! 1 RE-ENABLE TTY KBD INTERRUPTS 


2660 


023210 


000002 






15SI 


RTI 




; ; RETURN 


2661 


023212 


004737 


022220 




16SI 


JSP. 


PCSTYPEC 


J » ECHO CHAR 


2662 


023216 


021627 


000060 






CMP 


CSP),#60 


SlCHAR < 0? 


2663 


023222 


002420 








BLT 


18S 


; I BRANCH IF YES 


2664 


023224 


021627 


000067 






CMP 


(SP) / #67 


SlCHAR > 7? 


2665 


023230 


003015 








BGT 


18$ 


;; BRANCH IF YES 


2666 


023232 


042726 


000060 






BIC 


#60,(SP)+ 


JjSTRIP-OFF ASCII 


2667 


023236 


005766 


000002 






TST 


2 (SP) 


;;IS THIS THE FIRST CHAR 


2666 


023242 


001403 








BEQ 


17S 


; ) BRANCH IF YES 


2669 


023244 


006316 








ASL 


(SP) 


;>NO, SHIFT PRESENT 


2670 


023246 


006316 








ASL 


(SP) 


; » CHAR OVER TO MAKE 


2671 


023250 


006316 








ASL 


(SP) 


; I ROOM FOR NEW ONE. 


2672 


023252 


005266 


000002 




17$: 


INC- 


2(SP) 


;|KEEP COUNT OF CHAP 


2673 


023256 


056616 


177776 






BIS 


-2(SP),(SP) 


SI SET IN NEW CHAR 


2674 


023262 


000707 








BR 


7S 


; 1 GET THE NEXT ONE 


2675 


023264 


104401 


001160 




I8t: 


TYPE 


, SOUES 


; J TYPE ?<CR><LF> 


2676 


023270 


000720 








BR 


20S 


SlSIMULATE CONTROL-U 


2677 










•DSABL 


LSB 






2678 


















2679 


















2680 










j I »■**»»«##•##»•«#***#♦»»##♦#♦#»#»♦»##«#*«»♦»•♦*#*»#»##*»«»*♦#***« 


2681 










S«THIS 


ROUTINE 


WILL INPUT a 


SINGLE CHARACTER FROM THE TTY 


2682 










;*CALLt 








2683 












RDCHR 




Si GET A CHARACTER FROM THE QUEUE 


2684 










:* 


RETURN 


HERE 


} i CHARACTER IS ON THE STACK 


2685 










; * 






;»WITH PARITY BIT STRIPPED OFF 


2686 


















2687 


















2688 


023272 


01 1646 






SPDCHRS 


MOV 


CSP).-(SP) 


; IPUSH DOWN THE PC AND 


2689 


023274 


016666 


000004 


000002 




MOV 


4(SP),2(SP) 


; > the ps 


2690 


023302 


005066 


000004 






ClR 


4(SP) 


; J GET READY FOR A CHARACTER 


2691 


023306 


005046 








CLP 


-(SP) 


S|PUT NEW PS ON STACK 


2692 


023310 


012746 


023316 






MOV 


#64S,-(SP) 


IS PUT NEW PC ON STACK 


2693 


023314 


000002 








RTI 




I } POP NEW PC AND PS 


2694 


023316 








64S! 








2695 


023316 


005737 


022516 




let 


TST 


STKCNT 


fjWAIT ON A CHARACTER 


2696 


023322 


001775 








BEQ 


It 




2697 


023324 


005337 


022516 






DEC 


STKCNT 


; J DECREMENT THE COUNTER 


2698 


023330 


1 17766 


177166 


000004 




MOVB 


f»STKQ0UT,4(SP) ; ; GET ONE CHARACTER 


2699 


023336 


005237 


022522 






INC 


STKQOUT 


f I UPDATE THE POINTER 


2700 


023342 


023727 


022522 


022525 




CMP 


STKQOUT, # STKQEND JJ DID IT GO OFf OF THE ENO? 


2701 


023350 


001003 








BNE 


2S 


; (BRANCH IF NO 


2702 


023352 


012737 


022524 


022522 




MOV 


# STKQSRT, STKQOUT J J RESET THE POINTER 


2703 


023360 


000002 






2»: 


RTI 




; | RETURN 


2704 










i | ••»«•••••*#•*»•*«•«•»*•*•*•*•*»*•••*»**•**«••*•»*••*••*»*»*•*»* 


2705 










;»THIS 


ROUTINE 


WILL INPUT A 


STRING FROM THE TTY 


2706 










;»CALL: 








2707 










!* 


RDLIN 




J | INPUT A STRING FROM THE TTY 


2708 










■ • 


RETURN 


HERE 


8 1 ADDRESS DF FIRST CHARACTER WILL BE ON 


2709 










• • 






SlTEPMINATOR WILL BE A BYTE OF ALL 0'S 


2710 
2711 


023362 


010346 






srdlin: 


MOV 


P3,-(SP) 


S 1SAVE R3 


2712 


023364 


005046 








CLP 


-(SP) 


; > CLEAR THE BUBOUT KEY 



IINOEC 


-11-DZRK 


-D 


MACYI 1 


27(1006) 


04-OCT 


-76 14! 


31 PAGE 52 




.RKID. 


Pll 22-SEP-76 


10110 




TTY INPUT POUTTNE 




2713 


023366 


012703 


023b16 




1SE 


MOV 


•STTYIN, R3 


; ; GET ADDRESS 


27 1 4 


023372 


022703 


023646 




26: 


CMP 


#$TTYIN+30,R3 


I I BUFFER FULL? 


2715 


023376 


101456 








BLOS 


4$ 


> 1BR IF YES 


2716 


023400 


104407 








RDCHR 




J|GO READ ONE CHARACTER FROM THE TTY 


2717 


023402 


112613 








MOVB 


(SP)+, (R3) 


; ; GET CHARACTER 


2718 


023404 


122713 


000177 




ins: 


CMPB 


#177, (R3) 


||IS IT A RUBOUT 


2719 


023410 


001022 








BNE 


5$ 


;;BR IF NO 


2720 


023412 


005716 








TST 


(SP) 


;sIS THIS THE FIRST RUBOUT? 


2721 


023414 


001007 








BNE 


6$ 


SSBR IF NO 


2722 


023416 


112737 


000134 


023614 




MOVB 


#'\,9S 


S I TYPE A BACK SLASH 


2723 


023424 


104401 


023614 






TYPE 


,9$ 




2724 


023430 


012716 


177777 






MOV 


#-1, (SP) 


;;SET THE RUBOUT KEY 


2725 


023434 


005 303 






6$: 


DEC 


R3 


; ;BACKUP BY ONE 


2726 


023436 


020327 


023616 






CMP 


R3, ISTTYIN 


; ISTACK EMPTY? 


2727 


023442 


103434 








BLO 


4S 


;iBR IF YES 


2728 


023444 


111337 


023614 






MOVB 


(R3),9S 


S (SETUP TO TYPEOUT THE DELETED CHAR. 


2729 


023450 


104401 


023614 






TYPE 


,9* 


;jGO TYPE 


2730 


023454 


000746 








BR 


2« 


SlGO READ ANOTHER CHAR. 


2731 


023456 


005716 






5S| 


TST 


(SP) 


SlPUBOUT KEY SET? 


2732 


023460 


001406 








BEO 


7S 


;:BR IF NO 


2733 


023462 


112737 


000134 


023614 




MOVB 


#'\,9S 


SlTYPE A BACK SLASH 


2734 


023470 


104401 


023614 






TYPE 


,9$ 




2735 


023474 


005016 








CLR 


(SP) 


S ) CLEAR THE RUBOUT KEY 


2736 


023476 


122713 


000025 




7SI 


CMPB 


#25, (R3) 


;;IS CHARACTER A CTRL U? 


2737 


023502 


001003 








BNE 


8$ 


JlBR IF NO 


2738 


023504 


104401 


023652 






TYPE 


.SCNTLU 


; t TYPE A CONTROL "U" 


2739 


023510 


000726 








BR 


IS 


;>GO START OVER 


2740 


023512 


122713 


000022 




8s: 


CMPB 


#22, (R3) 


; JIS CHARACTER A "*R"? 


2741 


023516 


001011 








BNE 


3$ 


! (BRANCH IF NO 


2742 


023520 


105013 








CLRB 


(R3) 


CLEAR THE CHARACTER 


2743 


023522 


104401 


001161 






TYPE 


> tCRLF 


SlTYPE A "CR" & "LF" 


2744 


023526 


104401 


023616 






TYPE 


, STTYIN 


SlTYPE THE INPUT STRING 


2745 


023532 


000717 








BR 


2$ 


SlGO PICKUP ANOTHER CHACTER 


2746 


023534 


104401 


001 160 




48 : 


TYPE 


rSOUES 


SlTYPE A '?* 


2747 


023540 


000712 








BR 


1$ 


! (CLEAR THE BUFFER AND LOOP 


2748 


023542 


11 1337 


023614 




3S: 


MOVB 


(R3),9S 


; (ECHO THE CHARACTER 


2749 


023546 


104401 


023614 






TYPE 


,9$ 




2750 


023552 


122723 


000015 






CMPB 


*15,CR3)+ 


; I CHECK FOR RETURN 


2751 


023556 


001305 








BNE 


21 


SlLOOP IF NOT RETURN 


2752 


023560 


105063 


177777 






CLRB 


-1CR3) 


S 1 CLEAR RETURN (THE 15) 


2753 


023564 


104401 


001162 






TYPE 


,SLF 


! | TYPE A LINE FEED 


2754 


023570 


005726 








TST 


(SP) + 


; ; CLEAN RUBOUT KEY FROM THE STACK 


2755 


023572 


012603 








MOV 


(SP)+,R3 


; t RESTORE R3 


2756 


023574 


011646 








MOV 


(SP),-(SP) 


; I ADJUST THE STACK AND PUT ADDRESS OF THE 


2757 


023576 


016666 


000004 


000002 




MOV 


4(SP),2(SP) 


;i FIRST ASCII CHARACTER ON IT 


2758 


023604 


012766 


023616 


000004 




MOV 


♦STTYIN, 4 ( SP) 




2759 


023612 


000002 








RTI 




} 1 RETURN 


2760 


023614 


000 






9(1 


. BYTE 





; I STORAGE FOR ASCII CHAR. TO TYPE 


2761 


023615 


000 








• BYTE 





! | TERMINATOR 


2762 


023616 


000030 






sttyin: 


, BLKB 


30 


; I RESERVE 30 BYTES FOR TTY INPUT 


2763 


023646 


177607 


000377 




SBELLl 


.ASCIZ 


<207><377><377> 


(SCODE FOR BELL 


2764 


023652 


052536 


005015 


000 


SCNTLUI 


.ASCIZ 


/*U/<15><12> 


nCONTROL "U" 


2765 


023657 


136 


006507 


000012 


SCNTLG: 


•ASCIZ 


/*G/<15><12> 


;jCONTROL "G" 


2766 


023664 


005015 


053523 


020122 


$MSWRI 


•ASCIZ 


<15><12>/SWR ■ 


/ 


2767 


023672 


020075 


000 












2768 


023675 


040 


047040 


053505 


8MNEWI 


•ASCIZ 


/ NEW * / 





SEQ 0074 
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SEQ 0075 



2769 


023702 


036440 


000040 










2770 








.SBTTL 


READ AN 


OCTAL NUMBER FROM THE TTY 


2771 
















2772 








; I »*»*##»»#*»»»#•#»»**»*#•»♦»*##»»»*»»#»»#»•#*»#»#»**»****»**»*•# 


2773 








(•THIS 


ROUTINE 


HILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


2774 








; *CHANGE IT TO 


BINARY. 




2775 








(♦CALL: 








2776 








** 


RDOCT 




SPREAD AN OCTAL NUMBER 


2777 








'* 


RETURN 


HERE 


. if Au nonpo QTTC Ifir nil TnD nv THF CTirK 
I i IjUW UKL?c»r< Dlld AttCi Uri lUr UP Inb 


2778 








' * 






■ itlTTU KDnPD DTTC IDf TM ftUTrtPT 
r tltluH UnUbn OX lg AH& 111 


2779 
















2780 


023706 


011646 




SRDOCT I 


MOV 


( SP J i * ( SP J 


• fOofM/TT^r cosrc irno tujp 
i IrKUV orALCi run mZj 


2781 


023710 


01 6666 


000004 000002 




MOV 


* I or ) t c I or i 


( * INPUT NUMBER 


2782 


023716 


010046 






MOV 


R0 • ( SP ) 




2783 


023720 


01 0146 






MOV 


Rl f " ( SP ) 


((PUSH Rl ON STACK 


2784 


023722 


010246 






MOV 


R2#-(SP) 


((PUSH R2 ON STACK 


2785 


023724 


104410 




1$: 


RDLIN 




((READ AN ASCIZ LINE 


2 786 


023726 


01 2600 






MOV 


( SP) *i R0 


; ( GET ADDRESS OF 1ST CHARACTER 


2787 


023730 


0515001 






CtiR 


Rl 


; (CLEAR DATA WORD 


2788 


023732 


005002 






CLR 


R2 




2789 


023734 


1 1 2046 




2SI 


MOVE! 


(R0) +i »(SP) 


;;PICKUP THIS CHARACTER 


2790 


023736 


00141 2 






BEQ 


3S 


IS IF ZERO GET OUT 


2791 


023740 


006301 






ASL 


Rl 


! 1*2 


2792 


023742 


006 1 02 






ROL 


R2 




2793 


023744 


006301 






ASL 


Rl 


; !*4 


2794 


023746 


P06102 






ROL 


R2 




2795 


023750 


006301 






ASL 


Rl 


• ;*8 


2796 


023752 


006102 






ROL 


P2 




2797 


023754 


042716 


177770 




BIC 


#*C7, (SP) 


((STRIP THE ASCII JUNK 


2798 


023760 


062601 






AOD 


(SP)+,R1 


; ; ADD IN THIS DIGIT 


2799 


023762 


000764 






BR 


2S 


( I LOOP 


2800 


023764 


005726 




3S: 


TST 


(SP) + 


; ; CLEAN TERMINATOR FROM STACK 


2801 


023766 


010166 


00001 2 




MOV 


R1,12(SP) 


((SAVE THE RESULT 


28?2 


023772 


010237 


024006 




MOV 


R2 » SHIOCT 




2833 


023776 


01 2602 






MOV 


(SP)+,R2 


((POP STACK INTO R2 


2804 


024000 


012601 






MOV 


CSP)+,R1 


((POP STACK INTO Rl 


2805 


024002 


01 2600 






MOV 


(SP)+,R0 


([POP STACK INTO R0 


2806 


024004 


000002 






RTI 




; ! RETURN 


23^7 


024006 


000000 




SHIOCT: 


.WORD 





((HIGH ORDER BITS GO HERE 


2808 








, SBTTL 


TRAP DECODER 




2839 
















281 








; ;»»#*♦#****#***»*»#»*#♦**»*»«#*»*****«***#»*»»***»»**♦**♦*»*•*** 


2811 








(•THIS 


ROUTJNF. 


WILL PICKUP THF 


LOWER BYTE OF THE "TRAP" INSTRUCTION 


2812 








; *AnD USE IT TO 


Index through 


THE TRAP TABLE FOR THE STARTING ADDRESS 


2813 








••OF THE DESIRED ROUTINE. THEN 


USING THE ADDRESS OBTAINED IT WILL 


2814 








;»GO TO 


THAT ROUTINE. 




















2816 


02401 


1 0046 




STPAPS 


MOV 


R0»-(SP) 


;;save R0 


2817 


024012 


016600 


000002 




MOV 


2(SP),R0 


((GET TRAP ADDRESS 


2818 


024016 


005740 






TST 


-(R0) 


; ; BACKUP BY 2 


281 9 


024020 


111000 






MOVB 


(R0) ,R0 


; : GET RIGHT BYTE OF TRAP 


2820 


024022 


006300 






ASL 


R0 


( (POSITION FOR INDEXING 


2821 


024024 


016000 


024044 




MOV 


STRPAD(R0)»R0 


(( INDEX TO TABLE 


2822 


024030 


000200 






RTS 


R0 


;;GO TO ROUTINE 


2923 
















2824 
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2825 






2826 






2827 


024032 


011646 


2828 


024034 


01 6666 


2829 


024042 


000002 


2830 






2831 






2832 






2333 






2834 






2835 






2836 






2837 






2838 


024044 


024032 


2839 


024046 


022050 


2340 


024050 


022314 


2841 


024052 


022270 


2842 


024054 


022330 


2843 






7844 


024056 


023060 


2845 






7846 


024060 


022770 


2847 


024062 


02 3272 


2848 


024064 


P23362 


2849 


024066 


023706 


2350 






2851 






2852 






2«53 






2854 


024070 


012737 


2855 


024076 


012737 


2856 


024104 


010046 


2857 


024106 


010146 


2858 


024110 


010246 


7859 


024112 


010346 


2860 


024114 


010446 


2861 


0241 16 


010546 


2362 


024120 


017746 


7863 


024124 


010637 


2364 


024130 


012737 


2865 


024136 


000000 


2866 


024140 


000776 


2867 






2368 






2369 






2870 


024142 


012737 


2871 


024150 


013706 


2872 


024154 


005037 


2373 


024160 


005237 


2374 


024164 


001 375 


2875 


024166 


012677 


2876 


024172 


012605 


2377 


024174 


01 2604 


2878 


024176 


01 2603 


2879 


024200 


012602 


2880 


024202 


P12601 



((THIS IS USE TO HANDLE THE "GETPRI" MACRO 



STRAP2: MOV 
MOV 
RTI 



(SP)'-(SP) 
4(SP),2(SP) 



((MOVE THE PC DOWN 
[(MOVE THE PSW DOWN 
RESTORE THE PSW 



.SBTTL TRAP TABLE 



:»THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(•BY THE "TRAP" INSTRUCTION. 



ROUTINE 

.WORD 

STYPE 

STYPOC 

STYPOS 

STYPON 



STRAP2 
( jCALL=TYPE 
[ ;CALL=TYPOC 
! »CALL=TYPOS 
! ;CALL=TYPON 



TRAP+1 (104401) 
IRAP+2C 104402) 
TRAP+3U04403) 
TRAP+4U04404) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



SGTSWR ; !CALL=GTSWR 



SCKSWR 
SRDCHR 
SRDLlN 
SRDOCT 



; ;CALL*CKSWR 
; !CALL=RDCHR 
; ; CALLeRDLIN 
: :CALL«RDOCT 



TRAP+5C104405) GET SOFT-SWR SETTING 

TRAP+6(104406) TEST FOR CHANGE IN SOFT-SWR 

TRAP+7O04407) TTY TYPEIN CHARACTER ROUTINE 

TRAP+10U04410) TTY TYPEIN STRING ROUTINE 

TRAP+1K104411) READ AN OCTAL NUMBER FROM TTY 



024230 000024 
000340 000026 



155014 
024234 

024142 000024 



024230 000024 
024234 
024234 
024234 

1S4746 



.SBTTL POWER DOWN AND UP ROUTINES 



; ; *****♦***»♦*»»»*«#♦»*»»**»»*»*»»#«*#»**»*»*****#»#***♦*»#*♦**•»• 

(POWER DOWN ROUTINE 



MOV 


#$ILLUP,8#PWRVEC 


; ;SET 


FOP FAST UP 


MOV 


«340#MPWRVEC + 2 


(PRIO 


7 


MOV 


P0»-(SP) 


.•PUSH 


R0 ON STACK 


MOV 


P1,-(SP) 


(PUSH 


Rl ON STACK 


MOV 


R2,-(SP) 


[PUSH 


R2 ON STACK 


MOV 


R3,-(SP) 


(PUSH 


R3 ON STACK 


MOV 


P4,-(SP) 


1PUSH 


R4 ON STACK 


MOV 


P5,-(SP) 


I PUSH 


R5 ON STACK 


MOV 


SiSWR,-(SP) 


;PUSH 


3SWR ON STACK 


MOV 


SP,SSAVR6 


[SAVE 


SP 


MOV 


tSPWRUP.MPWRVEC 


( 1 SET 


UP VECTOR 


HALT 








BR 


.-2 ; [HANG 


UP 



; [•»»«»*»#****«»»•»»*»»•»»»*»»*•»•»»»**»•*»»***»»»»•«»»»»»*♦»••»» 

■ POWER UP ROUTINE 



spwrup: mov 

MOV 
CLR 

IS! INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



*$illup»0*pwrve: 

S SAVR6 1 SP 
SSAVR6 
SSAVR6 
IS 

(SP)+,8SWR 

(SP)+,R5 

(SP)+,R4 

(SP)+,R3 

(SP)+,R2 

(SP)+#R1 



I (SET FOR FAST DOWN 
(GET SP 

(WAIT LOOP FOR THE TTY 
(WAIT FOR THE INC 
(OF WORD 

(POP STACK INTO 9SWR 
(POP STACK INTO R5 
; POP STACK INTO R4 
(POP STACK INTO R3 
(POP STACK INTO R2 
( POP STACK INTO Rl 
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SEO 0077 



2881 


024204 


012600 








MOV 


2862 


024206 


012737 


024070 


000024 




MOV 


2883 


024214 


012737 


000340 


000026 




MOV 


2884 


024222 


104401 








TYPE 


2885 


024224 


024236 






SPWRMG: 


. WORD 


28R6 


024226 


000002 








RTI 


2887 


024230 


000000 






SILLUP: 


HALT 


2888 


024232 


000776 








BR 


2889 


024234 


000000 






SSAVR6: 





2990 


024236 


005015 


047520 


042527 


$POWERl 


.ASCIZ 


2891 


024244 


000122 










2892 












.EVEN 


2893 




000001 








.END 



(SPJ+.R0 J (POP STACK INTO R0 

• SpWRDN.MPWRVEC 1 I SET UP THE POWER DOWN VECTOR 

f 340.MPWRVEC+2 ;>PRIO:7 

; REPORT THE POWER FAILURE 
SPOWER ; (POWER FAIL MESSAGE POINTER 

; I THE POWER UP SEQUENCE WAS STARTED 
.-2 J! BEFORE THE POWER DOWN WAS COMPLETE 

;;PUT THE SP HERE 

<15><12>"P0WER" 
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AUTSL2 


002624 


CYCLE 


004154 


EXECUT 


005362 


PR01 


003266 


SECCNT 


001344 


BA 


001406 


CYCLE2 


004200 


EXIT 


003346 


PR02 


003140 


SECOND 


003432 


BADINP 


003254 


CYCL2 


004170 


EXITA 


003634 


PRTTWO 


014600 


SECOHE 


006732 


BAOONE 


010340 


CYL 


013524 


EXITB 


003642 


PR0 = 


000000 


SECSYS 


003030 


BAD. IN 


011752 


CYLADR 


005262 


EXITX 


003410 


PR1 = 


000040 


SECTBL 


001305 


BAD. ON 


013734 


CYLAD2 


005266 


EXIT2 


006056 


PR2 = 


000100 


SECT.0 


013744 


BASE 


001266 


CYLBAS 


001315 


EXTFR2 


003352 


PR3 ■ 


000140 


SECT.l 


011762 


BASINC 


005340 


CYLCNT 


001342 


EXTR 


001420 


PR4 « 


000200 


SECT. 2 


010350 


BEGCT 


017276 


CYIOFF 


005272 


FAIL 


013276 


PR5 * 


000240 


SECT. 3 


002622 


BEGCT1 


017304 


CYLTBL 


001274 


FAILED 


013260 


PR6 b 


000300 


SECT. 4 


017154 


BFGIN 


002602 


DA 


001410 


FFLAG 


021364 


PR7 a 


000340 


SECT. 5 


020510 


BIT0 s 


000001 


DDISP = 


177570 


FIL.DN 


003652 


PS E 


177776 


SECT. 6 


021402 


BIT00 a 


000001 


DISPLA 


001142 


GDI 


012506 


PSW = 


177776 


SEEKI 


001402 


BIT01 s 


000002 


DISPRE 


000174 


GO 


003272 


PWRVECb 


000024 


SEEKO 


001404 


BIT02 a 


000004 


DNIDRV 


020226 


GOOT 


012462 


RBA 


001414 


SEKSET 


011550 


BIT03 * 


000010 


D02 


004230 


GOl 


003304 


RBUFF 


013654 


SHFCNT 


020320 


BIT04 * 


000020 


DPL ■ 


010000 


G02 


003316 


PDBUFF 


007336 


SHF1 


013570 


BIT05 * 


000040 


DPACTV 


001164 


G03 


003324 


RDCHK 


006430 


SHF2 


013566 


BIT06 * 


000100 


DRCNT1 


001311 


GTSWR a 


104405 


RDCHK0 


016674 


SHF3 


013564 


BIT07 a 


000200 


DRIVE 


001314 


HDALGN 


020752 


RDCHR « 


104407 


SIN ■ 


001000 


BIT08 * 


000400 


DRIV0 


020470 


HDRFLG 


001320 


RDLIN a 


104410 


SINST 


020054 


BIT09 « 


001000 


DRIV1 


020472 


HT * 


000011 


RDLINK 


005612 


SMTME 


005574 


BIT1 * 


000002 


DRIV2 


020474 


IDEX 


001324 


RDOCT = 


104411 


STACK ■ 


001100 


BIT10 a 


002000 


DRIV3 


020476 


ILEGAL 


004122 


RDTBL 


001226 


START 


001440 


BITli a 


004000 


DPIV4 


020500 


INITIL 


004504 


RD1 


005636 


STARTR 


001434 


BIT12 * 


010000 


DPI V5 


020502 


INITI2 


004516 


RD2 


005650 


STFLG 


001325 


BIT13 « 


020000 


DRIV6 


020504 


INIT.2 


010446 


RD3 


005656 


STKLMT" 


177774 


BIT14 a 


040000 


DRIV7 


020506 


INSYS2 


003506 


RD4 


005720 


STOP 


013556 


BIT15 a 


100000 


DRVCNT 


020322 


10 


012512 


RD5 


005726 


STORE 


004052 


BIT2 a 


000004 


DRV0 


001206 


IOTVEC» 


000020 


RD6 


005732 


STRT1 


001754 


BIT} a 


000010 


DSKADR 


001334 


KYTEMP 


001330 


RD7 


006032 


SUR 


013550 


BIT4 a 


000020 


DSKTMP 


001352 


LDFLG 


004204 


READCS 


001356 


SWR 


001140 


BITS a 


000040 


DSWR s 


177570 


LDSEEK 


011564 


RESTRT 


006212 


SWREG 


000176 


BIT6 * 


000100 


ECNT 


001321 


LF a 


000012 


RESVEC* 


000010 


SWTCH 


021366 


BIT7 a 


000200 


EMTVEC* 


000030 


LFLF ■ 


105212 


RETFR2 


007250 


SW0 B 


000001 


BITS ■ 


000400 


EMI 


020324 


LOGA 


001166 


RETRN2 


006426 


SW00 ■ 


000001 


BIT9 a 


001000 


EM10 


021370 


MANSFL 


010336 


RETRN3 


005354 


SW01 > 


000002 


BPTVEC* 


000014 


EM2 


020335 


MASK 


005214 


RETRN4 


004016 


SW02 > 


000004 


BUFF 


013652 


EM3 


020347 


MASKER 


004010 


RETRY 


013166 


SW03 b 


000010 


BUFR 


022046 


EM4 


020362 


MODE 


001312 


RFC ERR 


013234 


SW04 ■ 


000020 


BUSADR 


001336 


EM5 


020375 


MORE 


013040 


RFERR 


013216 


SW05 > 


000040 


CHECK1 


005430 


EM6 


020413 


MOUNT 


004276 


RKBA 


001374 


SW06 a 


000100 


CHKCNT 


001350 


EM7 


020434 


MSKTBL 


001256 


RKCS 


001370 


SW07 b 


000200 


CKSWR a 


104406 


EM8 


020447 


NEXT 


012376 


RKDA 


001376 


SW08 » 


000400 


CLRDPL 


020212 


EM9 


020455 


NG 


002574 


RKDS 


001364 


SW09 s 


001000 


CNTSIN 


001322 


ERPCHK 


006062 


NXT1 


017460 


RKER 


001366 


SHI b 


000002 


COM 


012300 


ERPFLG 


001360 


NXT2 


017554 


RKWC 


001372 


SW10 b 


002000 


COMMON 


012274 


ERRRF 


001424 


OSPFLG 


001326 


RWC 


001416 


SW11 B 


004000 


COMND 


001316 


EPRRFC 


001426 


PASTBL 


001246 


RWS a 


000100 


SW12 b 


010000 


CONTIN 


011364 


ERRVECa 


000004 


PATTRN 


001362 


RWSRDY 


011336 


SW13 B 


020000 


CONTRL 


001332 


EPRWCH 


001430 


PIRQ s 


177772 


R6 B«000006 


SW14 b 


040000 


CR » 


000015 


ERRWCS 


001432 


PIRQVEa 


000240 


R7 b%000007 


SW15 s 


100000 


CRLF ■ 


000200 


ERRWF 


001422 


PRONUM 


001313 


SEC 


013536 


SW2 a 


000004 
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SEQ 0079 



S«<3 = 


000010 


TYPE * 


104401 


SCMTAG 


001100 


8 MNEW 


023675 


STKQOU 


022522 


SW4 * 


000020 


TYPOC * 


104402 


8CM3 * 


000000 


SMSWR 


023664 


STKOSR 


022524 


SW5 = 


000040 


TYPON » 


104404 


SCNTLG 


023657 


SNULL 


001154 


STKS 


001144 


SW6 = 


000100 


TYPOS = 


104403 


SCNTLu 


023652 


SOCNT 


022512 


STKSRV 


022576 


SW7 i 


000200 


WATSK 


017704 


SCRLF 


001161 


SOMODE 


022514 


»TN ■ 


000001 


SW8 = 


000400 


WC 


001412 


SENOAO 


001400 


SPASS 


001100 


STPB 


001152 


SH9 = 


001000 


WCERR 


013576 


SERFLG 


001103 


SPOWER 


024236 


STPFLG 


001157 


SYSEp 


013132 


hCERRP 


013112 


SERMAX 


001115 


8PWRDN 


024070 


STPS 


001150 


SYSERR 


01 3646 


WCHERR 


013626 


SERPPC 


001116 


SPWRMG 


024224 


STRAP 


024010 


S10 


012154 


hFERR 


013116 


SERRTB 


001434 


SPHRUP 


024142 


STRAP2 


024032 


Sll 


012132 


WPS = 


000040 


SERTTL 


001112 


SQUES 


001160 


STRP = 


000012 


SI? 


012252 


WRDCNT 


001340 


SFILLC 


001156 


SRDCHR 


023272 


STRPAD 


024044 


S13 


012122 


WRITCS 


001354 


SFILLS 


001155 


SRDLIN 


023362 


STSTNM 


001102 


TABLTY 


002534 


WPLINK 


005064 


SGDAOR 


001120 


SRDOCT 


023706 


STTYIN 


023616 


TBITVE* 


000014 


*RPRO 


016344 


SGDDAT 


001 124 


SRDSZ = 


000030 


STYPE 


022050 


TBLFUL 


004114 


hRFDCK 


016134 


SGTSWR 


023060 


SSAVR6 


024234 


8TYPEC 


022220 


TIME 


005460 


WRTNBY 


001317 


SHD = 


000003 


SSETUP» 


000114 


STYPEX 


022266 


T1HR 


001346 


X 


015472 


SHIOCT 


024006 


SSTUP = 


177777 


8TYPOC 


022314 


TIMR7 


001323 


XX 


015706 


SICNT 


001104 


SSVPC = 


000222 


*TYPON 


022330 


TKVEC * 


000060 


SAUTOB 


001134 


SILLUP 


024230 


SSWR = 


160000 


STYPOS 


022270 


TPVEC - 


000064 


$BDADR 


001122 


SINTAG 


001135 


$TKB 


001146 


S0FILL 


022513 


TPAPVEr 


000034 


SBDOAT 


001126 


SITEMB 


001114 


STKCNT 


022516 


, S 


024246 


rp.T yvr = 


000314 


SBFLL 


023646 


SLF 


001 162 


STKINT 


022526 






TRY AGN 


011346 


SCHARC 


022264 


SLPADR 


001106 


STKQENs 


022525 






TSTSN1 


006134 


SCKSWR 


022770 


$LPERR 


001110 


STKQIN 


022520 
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